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Preface 


This  report  describes  the  implementation  and  evaluation 
of  the  University  of  Pennsylvania  Pascal  Core  System 
graphics  package  for  use  on  a  VAX  11/780  computer  with  the 
UNIX  operating  system.  Device  drivers  for  the  Tektronics 
4014,  Visual  550,  and  Hewlett  Packard  7220A  plotter  have 
been  developed  and  implemented  for  this  Core  package. 

Three  previous  thesis  reports  at  AFIT  dealt  with  the  Core 
System.  Harold  Curling  worked  on  "Design  of  an  Interactive 
Input  Graphics  System  Based  on  the  ACM  Core  Standard"  in 
1980.  Philip  Tarbell  worked  on  "Continued  Development  and 
Implementation  of  a  Standard  Graphics  Package  for  the  AFIT 
VAX  11/780"  in  1981.  Kevin  Rose  worked  on  "Development  of 
an  Interactive  Computer  Graphics  System  Library  and  Graphics 
Tools"  in  1982. 

I  would  like  to  thank  my  thesis  advisor.  Professor  Charles 
Richard,  for  his  guidance  and  help  on  this  project.  Lt.  Col 
Hal  Carter,  Dr.  Gary  Lamont,  and  Mr.  Joe  Hamlin  were  very 
helpful  with  their  comments  and  criticisms  of  this  project. 
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Abstract 


<1 


A  Pascal  Core  System  using  the  VAX  VMS  11/780  operating 
system  from  the  University  of  Pennsylvania  Mas  converted  to 
run  on  the  Air  Force  Institute  of  Technology  (AF1T)  VAX 
11/780  UNIX  operating  system.  Major  problems  in  converting 
from  the  VMS  operating  system  to  the  UNIX  operating  system 
were  encountered,  but  they  were  solved  and  documented  for 
others  to  use  and  avoid.  The  size  of  the  Pascal  Core  System 
and  its  lengthy  compile  times  were  a  major  system 
limitation.  Device  drivers  were  written  in  C  for  the  Visual 
550,  the  Tektronics  4014,  and  the  Hewlett  Packard  7220A  4 
color  platter  and  can  be  applied  to  other  projects.  The 
Core  package  that  was  converted  follows  the  SIGGRAPH  1979 
standard.  An  application  program,  called  intcore.run,  is 
available  that  demonstrates  the  Pascal  Core  routines  that 
are  supported  by  this  system. 
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Background 

Currently,  no  comprehensive  graphics  software  capability 
exists  on  the  Air  Force  Institute  of  Technology's  (AFIT)  S/AX 
11/780  computer  with  the  UNIX  operating  system  located  in 
the  School  of  Engineering  (EN)  computer  room.  Limited 
graphics  capability,  such  as  the  Tektronics  Plot  10  and  the 
S  package,  does  currently  exist  on  the  system,  but  this 
capability  was  not  initially  delivered  with  the  new  computer 
system.  The  newness  of  this  S/AX  11/780  system  is  one  reason 
for  the  limited  graphics  capability. 

More  comprehensive  graphics  packages  and  device  drivers 
do  exist,  but  they  were  developed  to  run  on  the  CDC  6600 
computer,  which  has  been  in  place  for  several  years.  But  as 
more  and  more  graduate  students  learn  to  use  the  S/AX  11/780 
computer  system,  they  also  need  a  similar  graphics 
capability  on  the  S/AX. 

Problem  Definition 

Since  no  comprehensive  graphics  software  capability  does 
currently  exist  on  the  S/AX  UNIX  system,  this  thesis  effort 
will  be  to  implement  and  evaluate  the  University  of 


Pennsylvania’s  Pascal  graphics  software  package  for  possible 
use  on  this  system.  The  graphics  package  that  will  be 
evaluated  is  based  on  the  Core  System  standard  of  1979  Cl  3. 

Also,  only  a  very  limited  number  of  graphics  devices 
currently  exist.  This  thesis  effort  will  also  attempt  to 
make  more  graphics  devices  useable  on  the  VAX  system. 


Review  of  Literature 

The  Pascal  Core  System  graphics  package  has  been  obtained 
from  the  University  of  Pennsylvania  for  evaluation  on  the 
VAX.  This  package  has  been  chosen  because  it  is  the  most 
complete  Pascal  Core  system  available  at  present. 

Other  graphics  packages  are: 

a.  Tektronics  Plot-10  package  for  possible  use  on  the 
Visual  550  and  the  Tektronics  4014. 

b.  Movie  BYU  for  possible  use  on  the  Visual  550  and 
the  Tektronics  4014. 

c.  Simple  Graphics  Package  (SGP)  for  possible  use  on 
the  Visual  550  and  the  Tektronics  4014. 

d.  Hewlett  Packard  Calcomp  Package  for  possible  use 


on  the  Hewlett  Packard  7220A  4  color  plotter 

e.  Vpr  utility  package  for  possible  use  on  the 
Versatec  plotter 

f.  Graph  ( ) ,  and  PlotO  utility  packages  for  possible 
use  on  the  Visual  550  and  the  Tektronics  4014. 

g.  S  package  written  in  Ratfor  for  possible  use  by 
the  Hewlett  Packard  plotter  and  the  Tektronics  4014.  When 


in  the  Tektronics  4014  emulation  mode.  thi 


Vi sual  550 


terminal  can  be  used. 


Objective  of  Thesis 

The  objective  of  this  thesis  is  to: 

i)  Convert  the  University  of  Pennsylvania's  (UP) 
existing  device  independent  package  based  on  the  proposed 
U.S.  Standard  Core  System  in  Pascal  to  execute  on  a  UNIX 
VAX. 

ii)  Design  and  implement  device  drivers  for  the  three 
graphic  devices  available  in  the  EN  computer  facility  to 
interface  Mith  the  Core  packages. 

iii)  Implement  and  evaluate  this  package  for 
performance  and  use  of  the  varied  features. 

iv)  Design  and  test  a  typical  application  to  integrate 
and  demonstrate  the  compared  features. 

Scope 

This  report  presents  the  rehosting  of  the  UP  Core  System 
graphics  package  on  the  VAX  11/780  computer  using  the  UNIX 
operating  system. 

This  project  develops  a  graphics  system  that  can  be  used 
by  other  application  programs  at  AFIT  to  manipulate 
graphics.  Existing  software  is  used  as  much  as  possible. 

Basically,  there  are  three  levels  in  graphics  software 
(Figure  I — 1 ) -  Level  1,  the  highest  level,  is  the 
applications  program,  and  is  machine  independent. 


LEVEL  1 


INTERACTIVE  INTERACTIVE  INTERACTIVE 


Figure  1-1.  Levels  of  Implementation 


Level  2,  the  interface  level,  is  the  Core  System  package. 
It  controls  the  graphics  commands  from  the  Level  1 

applications  programs  to  the  device  dependent  drivers  at 
Level  3.  Level  2  is  also  machine  independent.  Level  3  is 
the  lowest  level.  It  contains  machine  dependent  routines 

that  translate  graphics  commands  from  Level  2  into  commands 
for  the  actual  graphics  devices. 


Level  1 


One 

or 

more  applications 

programs 

will 

be  designed  in 

Pascal 

to 

demonstrate 

and  evaluate 

the 

Core 

System  package 

once 

the 

Level  2 

and 

Level 

3 

implementations  are 

operational . 

Level  2 

This  is  where  the  Core  System  will  be  implemented.  The 
Pascal  package  will  be  developed  to  interface  between  the 
applications  programs  and  the  graphics  drivers.  This 
package  will  be  transportable  to  other  computers. 

Level  3 

The  graphics  interface  will  be  done  here.  This  project 
will  interface  with  three  graphic  devices.  The  three 
devices  are.  Visual  550  raster  graphics  terminal,  Tektronics 
4014  vector  graphics  terminal,  and  the  Hewlett  Packard  7220A 
4  color  plotter. 


Apgroach 


I  will  follow  these  steps  to  solve  this  problem: 

1.  Literary  search  to  locate  an  existing  Core  System 
package  in  Pascal,  and  any  proposed  international  standard 
GKS  systems  that  are  currently  available. 

2.  Convert  the  selected  Pascal  Core  System  package  to 
run  on  the  VAX  11/780  computer  with  its  UNIX  operating 
system 

3.  Implement  software  drivers  for  the  three  graphic 
devices 

4.  Develop  the  means  for  FORTRAN  77,  Pascal,  and  C 
software  to  communicate  between  any  combination  of  these 
1 anguages 

5.  Write  application  programs  to  demonstrate  these 
Core  System  features 

6.  Evaluate  the  performance  of  this  core  system  on 
the  VAX  11/780  using  the  UNIX  operating  system. 

Past  Development  Efforts 

Past  development  efforts  at  AFIT  were  done  by  Harold  L. 
Curling  (Dec  1980),  Philip  Boman  Tarbell  (Dec  1981),  and 
Capt  Rose  (Dec  1982) .  These  projects  were  done  on  a  VAX 
11/780  computer  using  the  VMS  operating  system. 


Overview  of  Ihesis 

The  next  chapter  describes  the  Core  System  packages  that 
are  proposed,  along  with  the  possible  graphic  device 
drivers.  In  this  chapter,  passible  ways  to  implement  this 
graphics  system  are  explained.  The  advantages  and  the 
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disadvantages  of  each  are  presented .  The  third  chapter 

specifies  the  system  configuration  that  has  been  chosen. 
The  fourth  chapter  provides  the  performance  and  functional 
analysis  to  evaluate  the  Pascal  Core  System  package  that  has 
been  implemented.  Chapter  five  presents  the  results  of  the 
analysis  from  the  previous  chapter,  conclusions  reached,  and 
recommendations  for  future  work. 


11^.  SystM  Design 


The  proposed  Core  System  package  used  in  this  project  is 
presented.  Also,  the  GKS  System  (Graphic  Kernal  Standard, 
the  European  Graphics  Standard)  is  discussed  briefly.  The 
possible  computer  hardware  to  be  used  for  this  Core  System 
package,  along  with  possible  graphics  device  drivers,  are 
discussed. 

Core  System 

The  Core  System,  with  a  Pascal  package,  is  used  for  this 
thesis  effort.  This  Core  System  was  chosen  over  the  GKS 
System  because  of  the  more  developed  Core  packages 
available. 

Pascal^  Core  System 

From  literature  searches  and  past  development  efforts  at 
AFIT,  the  University  of  Pennsylvania  Pascal  Core  System 
package  has  been  chosen  for  this  thesis  development  effort. 
It  is  a  complete  3-0  Core  package  written  on  a  VAX  11/780 
computer  using  a  VMS  operating  system.  The  Apple  Computer 
Core  package,  and  the  European  Core  package  from  the 
University  of  Glasgow  were  not  chosen  because  they  were  not 
as  complete  as  the  University  of  Pennslyvania  Core  package 
C9, 10, 12,20,22,343. 

Problems  of  rehosting  this  Pascal  Core  package  occurred. 
One  such  problem  was  converting  the  magnetic  tape  containing 
this  package  over  to  AFIT's  UNIX  operating  system.  Once 


this  was  done,  then  the  Pascal  programs  were  corrected  to 
run  on  the  UNIX  Pascal  system.  Another  problem  was  linking 
graphic  device  driver  software  to  the  Pascal  Core  system. 

GKS  System 

The  GKS  System  (Graphic  Kernal  Standard,  European  graphic 
standard)  was  considered  early  in  the  planning  stages  of 
this  project.  However,  because  no  GKS  system  was  readily 
available  at  the  time  this  project  was  planned,  it  was 
decided  to  use  the  Core  System  packages  available  to  us.  At 
the  most  recent  meeting  of  the  GKS  Committee,  the  final 
standards  for  the  GKS  .  System  had  not  been  agreed  on 
Cll, 12, 14, 15,273. 

Computer  Hardware 

Currently,  the  EN  Computer  facility  has  access  to  several 
computer  systems.  The  fallowing  main  computer  systems  are: 

1.  VAX  11/780 

2.  CDC  6600 

3.  DEC  PDP  11/60 

4 .  Harr i s 

The  VAX  11/760  computer  will  be  used  for  this  thesis 
effort. 

Graphic  Devices 

There  are  several  terminals,  printers,  and  plotters 
available  in  the  EN  computer  facility  at  AFIT.  For  this 
thesis  effort,  not  only  will  graphics  devices  have  to  be 


choun,  but  also  graphic  software  to  run  the  chosen  devices. 

The  available  graphic  devices  are: 

1.  Visual  550  raster  graphic  terminal 

2.  Tektronics  4054  vector  graphic  terminal 

3.  Versa tec  raster  plotter 

4.  Hewlett  Packard  7220A  4  color  plotter 

5.  Tektronics  4014  vector  graphic  terminal 

The  graphic  devices  to  be  used  in  this  effort  are: 

1.  Hewlett  Packard  7220A  4  color  plotter 

2.  Visual  550  Raster  Graphics  Terminal 

3.  Tektronics  4014  Vector  Graphics  Terminal 

These  graphic  devices  have  been  chosen  because  they  are 
available  to  students  at  any  time,  and  they  are  the  most 
used.  See  Figure  1-1  for  more  information  on  where  these 
devices  will  fit  into  this  project. 

HP  7220A  4  Color  Plotter 

The  HP  plotter  will  be  used  interactively.  One  of  the 
device  drivers  that  might  be  used  for  this  plotter  is  a 
Cal comp  package  that  was  originally  used  on  the  CDC  6600 
computer.  It  is  written  in  FORTRAN  IV  and  has  been 
converted  to  FORTRAN  77  to  run  on  the  VAX.  See  Appendix  H 
for  further  information  on  this  Calcomp  package. 

The  following  graphics  capabilities  for  this  plotter  are 
being  developed: 

1.  Draw  a  line  (pen  down  position) 

2.  Select  one  of  four  possible  pens <4  colors) 


3.  Move  the  pen  (pen  up  position) 

4.  Write  a  string  of  text 


i 


5.  Cross  hatching 

6.  Read  pen  position  (x,y  coordinates) 

7.  Set  the  character  size 

8.  Initialize  the  plotter 

9.  Put  the  plotter  online  or  offline 

lO.  Place  the  pen  in  the  up  or  down  position 

Visual  550  Raster  Graphics  Terminal. 

The  Visual  550  terminal  will  be  used  interactively. 

The  following  graphics  capabilities  are  being  developed 
for  the  Visual  550  terminal: 

1.  Write  a  string  of  text 

2.  Graphics/Text  screen 

3.  Clear  the  screen 

4.  Draw  a  line  (point  A  to  point  B) 

5.  Fill  a  closed  polygon 

6.  Move  the  cursor 

7.  Read  the  cross  hair  position  (x,y  coordinates) 

8.  Initialize  the  terminal 

9.  Mode  selection (pixels  on  or  off) 

lO.  Set  the  character  size 

Tektronics  4014  Vector  Graphics  Terminal 

The  Tektronics  4014  terminal  will  be  used  interactively. 
The  following  graphics  capabilities  are  being  developed 
for  the  Tektronics  4014  terminal: 

1 1-4 


1.  Text/Graphics  screen 

2.  Clear  the  screen 

3.  Draw  a  line  (point  A  to  point  B) 

4.  Move  the  cursor 

5.  Write  a  string  o-f  text 

6.  Initialize  the  terninal 

7.  Read  the  cross  hairs  (x,y  coordinates) 

8.  Set  the  character  size 

Computer  Languages  Interfacing 

A  critical  part  of  this  thesis  design  effort  is  to  be 
able  to  interface  the  Pascal  Core  System  programs  with  the 
device  dependent  graphic  software  programs.  If  the  Pascal 
Core  System  programs  are  incompatible  with  the  several 
existing  graphic  software  programs,  then  a  way  to 
communicate  with  these  graphics  packages  has  to  be  found. 
Currently,  the  graphic  software  programs  are  written  in 
either  FORTRAN  77  or  in  C. 

A  Core  System  main  program  written  in  FORTRAN  77  can 
interface  with  the  FORTRAN  77  graphic  software  packages 
without  the  need  for  any  special  links.  For  the  graphics 
packages  written  in  C,  then  a  C  subroutine  must  be  written 
to  pass  data  arguments  on  to  the  C  graphics  package. 

A  Pascal  Core  System  main  program  can  interface  with  a 
Pascal  software  package  without  any  special  modif ications. 
Also,  for  graphics  packages  written  in  C,  a  C  subroutine  can 
pass  the  data  arguments  on  to  the  C  graphics  package. 

The  AFIT  VAX  11/780  computer  with  its  UNIX  operating 


system  cannot  pass  I/O  data  to  and  from  FORTRAN  77 
subroutines,  using  either  C  or  Pascal  main  programs,  unless 
major  system  modifications  are  made. 

The  FORTRAN  77  system  automatically  places  an  underscore 
character  after  program,  subroutine,  or  function  names. 
So  for  a  FORTRAN  77  program  to  communicate  with  either  a 
Pascal  or  C  routine,  then  an  underscore  character  must  be 
inserted  by  the  user  after  the  Pascal  or  C  routine  name. 
This  works  well  for  a  C  routine,  but  the  Pascal  system  will 
not  allow  or  recognize  underscore  characters.  So  for  a 
FORTRAN  77  program  to  communicate  with  a  Pascal  routine, 
then  a  C  interface  program  must  be  written.  FORTRAN  77  can 
communicate  with  a  Pascal  routine  in  this  manner,  however,  a 
Pascal  program  cannot  communicate  with  a  FORTRAN  77  routine 
in  this  manner.  When  a  C  interface  routine  tries  to  call  a 
FORTRAN  77  routine,  then  a  "bus  error”  occurs  when  FORTRAN 
1/0  is  attempted. 

The  current  way  of  passing  data  arguments  to  and  from  a  C 
interface  program  is  by  reference.  This  allows  the  FORTRAN 
77  and  Pascal  programs  to  pass  data  arguments  to  and  from 
the  C  interface  routines  using  pointers  or  addresses. 

Appendix  I  shows  how  to  set  up  data  arguments  for  a 
FORTRAN  77  to  C  to  Pascal  routine,  and  for  a  Pascal  to  C 
routine.  Currently,  no  way  exists  to  pass  data  from  a  C 
routine  to  a  FORTRAN  77  routine  and  back. 

Figure  II-l  outlines  the  compatible  and  incompatible 
programming  languages. 
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COMPATIBLE 


C  REQUIRES  AN  UNDERSCORE  AFTER  ITS 
ARGUMENT  NAME  TO  MATCH  FORTRAN 
ARGUMENT  NAME,  VALID  DATA  TYPES 


C  REQUIRES  AN  UNDERSCORE  AFTER  ITS 
ARGUMENT  NAME  TO  MATCH  FORTRAN 
ARGUMENT  NAME,  VALID  DATA  TYPES 
FORTRAN  TO  PASCAL  WORKS  CORRECTLY 
THIS  WAY 

PASCAL  TO  FORTRAN  DOES  NOT  WORK  CORRECTLY 
THIS  WAY,  SYSTEM  I/O  ERROR 


INCOMPATIBLE 


PASCAL  ARGUMENT  NAME  CANNOT  MATCH 
FORTRAN  ARGUMENT  NAME,  PASCAL  SYSTEM 
DOES  NOT  ALLOW  UNDERSCORE  CHARACTERS 


Figure  II-l.  Compatible  and  Incompatible 
Programming  Languages 
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PASCAL 
DATA  TYPES 


FORTRAN 
DATA  TYPES 


C 

DATA  TYPES 


REAL 


REAL 


DOUBLE 

PRECISION 


CHAR 


CHARACTER 


INTEGER *2 


INTEGER 


INTEGER 


BOOLEAN 


LOGICAL 


FLOAT 


DOUBLE 


CHAR 


SHORT  INT 


LONG  INT  OR 
INT 


LONG  INT 
OR  INT 


Table  II-l.  Data  Type  Compatibility  Among 
Pascal,  FORTRAN,  and  C 


III. 


Detailed  Design  and  Implementation 


This  chapter  will  describe  in  detail  the  conversion  and 
implementation  o-f  the  VAX  11/780  Pascal  Core  System, 
designed  -for  the  VMS  operating  system  -from  the  University  of 
Pennsylvania,  to  the  Air  Force  Institute  of  Technology 
(AFIT)  VAX  with  its  UNIX  operating  system. 

Pascal.  Core  System 

The  conversion  of  the  University  of  Pennsylvania  Core 
package  was  complex  because  of  the  many  conflicts  between 
the  VMS  Pascal  and  the  UNIX  Pascal.  Using  the  AFIT  VAX  C 
shell  and  text  editor,  all  of  the  approximately  300  pascal 
subroutines  had  to  be  modified  to  be  usable  on  the  UNIX  VAX 
system. 

Conversion  from  VAX  VMS  to  VAX  UNIX  Operating  System 

The  major  portion  of  the  conversion  required  changing  the 
VMS  Pascal  to  run  on  the  UNIX  Pascal.  Changes  to  the 
variables,  file  names,  and  system  routines  not  supported  on 
the  UNIX  VAX,  were  some  of  the  many  changes  that  had  to  be 
made. 

Routines  had  to  be  added  to  support  multiple  graphics 
devices  that  were  not  implemented  by  the  University  of 
Pennsylvania  Pascal  Core  System. 

Library  files  and  their  dependencies  had  to  be  researched 
and  restructured  due  to  the  requirements  of  the  UNIX  VAX 
Pascal,  which  was  not  a  problem  under  the  VMS  VAX  Pascal 


system.  This  structure  of  dependencies  is  critical  to  the 
UNIX  VAX  Pascal  because  o-f  the  one-pass  loader. 

The  Include  -files  also  had  to  be  structured  due  to  the 
Pascal  language  restrictions  of  subroutines  only  knowing  the 
existence  of  other  routines  above  them. 

Duplicated  variables  were  a  problem  because  the  VMS  VAX 
Pascal  accepts  underscore  characters,  while  the  UNIX  VAX 
Pascal  does  not.  Removing  the  underscore  characters 
sometimes  caused  duplications  with  other  variables 
originally  created  without  the  underscore  character.  These 
duplications  had  to  be  renamed  to  eliminate  multiple  defined 
errors. 

Graphic  devices  chosen  for  this  project  were  selected 
from  the  ones  available  in  the  AFIT  Computer  room.  The  two 
selected  were  chosen  for  their  availability  and  familiarity 
to  students,  and  research  to  develop  these  graphics  drivers 
was  more  complete. 

The  graphic  device  drivers  were  researched  and  written 
specifically  for  the  Core  System.  Other  graphics  packages 
were  analyzed,  but  due  to  the  size  constraint  of  the  Pascal 
Core  System  on  the  UNIX  VAX,  these  graphics  packages  were 
too  large.  To  save  disk  space,  it  was  decided  to  develop 
smaller,  more  specific  device  drivers. 

Pascal.  Code  Changes 

The  changes  made  to  convert  the  VMS  VAX  Core  System  to 
run  on  the  UNIX  VAX  Core  System  is  detailed  in  Appendix  C. 


Host  o-f  these  changes  were  made  using  the  UNIX  C  shell. 
This  system  shell  allows  a  user  to  create  an  executable  file 
that  will  automatically  make  changes  to  the  selected  text 
files.  In  this  way,  with  the  files  in  one  directory,  files 

can  be  updated  automatically  without  having  to  use  a  text 
editor  to  make  changes  for  each  specific  file.  Some  of  the 
more  specific  changes  did  have  to  be  made  on  an  individual 
basis,  but  these  were  kept  to  a  minimum. 


Pascal  Code  Additions 

Appendix  D  contains  a  list  and  description  of  the  Core 
routines  added  to  this  system  to  run  on  the  UNIX  operating 
system. 

The  device  dependent  routines  were  added  because  the  UNIX 
Pascal  code  cannot  access  the  FORTRAN  77  device  drivers 
written  for  the  VMS  system. 

Since  the  University  of  Pennsylvania  Core  System  only 
supported  one  graphics  device,  routines  were  added  to 
support  multiple  devices.  But  due  to  the  size  problem 
encountered,  the  system  was  modified  to  support  multiple 
devices,  but  only  have  one  device  active  at  a  time.  This  is 
a  compromise,  but  this  will  save  space  and  allow  the  use  of 
more  than  one  device  while  the  Core  program  is  active. 
Currently  the  AFIT  VAX  system  only  allows  one  device  per 
user  while  the  program  is  running,  but  the  changes  in  the 
program  will  allow  for  more  than  one  device  at  a  future 
date. 
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Library  Elies 

The  UNIX  Pascal  library  -file  is  listed  in  Appendix  B.  It 
shows  the  order  of  dependencies  that  aust  be  followed  when 
building  this  library  file.  The  most  dependent  modules  are 
at  the  bottom  while  the  least  dependent  modules  are  at  the 
top  of  the  file. 

The  UNIX  libraries  use  a  one  pass  loader.  The  UNIX 
system  scans  a  library  from  top  to  bottom  in  one  pass,  so 
the  routines  that  are  called  by  other  routines  must  fallow 
them.  If  not,  then  an  undefined  error  may  occur  when  a 
Pascal  program  is  compiled.  The  order  of  the  current 
library  ensures  that  all  the  dependent  routines  are 
organized  to  follow  the  calling  routines. 

The  userext.h  files  are  independent  of  each  other  and  can 
be  in  any  order  in  the  library.  The  rest  of  the  files  must 
be  in  the  stated  order  or  an  undefined  error  may  occur. 

The  UNIX  system  has  a  routine  that  randomizes  the  library 
so  that  the  order  of  the  modules  in  the  library  does  not 
matter.  It  creates  an  index  at  the  beginning  of  the  file  to 
list  all  the  modules  in  the  particular  library.  When  a 
program  is  loaded  using  this  library,  it  then  searches  this 
index  for  the  required  module.  However,  there  is  a  size 
limit  to  this  index.  If  a  library  contains  more  than 
approximately  100  modules,  then  this  index  space  may  be 
exceeded.  The  Core  System  uses  about  300  modules,  so  this 
randomizer  cannot  be  used.  When  compiling  without  this 
index,  a  warning  message  appears  on  the  screen  stating  the 


library  date  is  not  correct.  This  is  only  a  warning  and 
Mill  occur  every  time  a  compile  is  run  using  this  library 
-file. 


Compile  Fi_l.es 

Appendix  A  contains  a  list  of  all  the  UNIX  files  that 
need  to  be  compiled.  This  file  automatically  compiles  the 
files  that  have  been  changed.  Only  the  files  that  need  to 
be  updated  are  compiled. 

This  C  shell  file  checks  the  time  and  date  to  see  if  any 
changes  have  been  made  to  the  text  file  or  if  an  object  file 
exists.  If  any  changes  have  been  made  or  an  object  file  no 
longer  exists,  then  the  file  is  compiled.  If  only  one  of 
the  files  has  been  changed,  then  this  C  shell  compile  file 
is  run  and  only  the  text  file  that  has  been  changed  will  be 
recompiled,  the  others  will  be  checked  and  ignored. 


.Include  Files 

Include  files  are  needed  in  Rascal  to  define  the 
variables  and  procedures  called  by  that  Pascal  routine. 
Instead  of  typing  in  all  necessary  variables  and  procedures, 
the  Include  files  allow  a  user  to  type  in  a  single  line  to 
define  several  other  variables  or  procedures.  This  allows 
different  programs  and  routines  to  access  other  routines. 

The  following  .h  Include  files  are  ordered  in  the  Pascal 
procedure  orientation,  where  procedures  and  functions  only 
recognize  other  routines  that  are  above  them.  This  order 
allows  the  user  to  easily  include  these  files  into  their 
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programs  with  the  dependencies  in  the  correct  order.  The 
top  most  Include  -file  is  the  most  dependent,  while  the 
bottom  -file  is  the  least  dependent.  The  modules  listed  in 
the  userext.h  file  are  independent  of  each  other  and  can 
appear  in  any  order  within  this  file.  However,  the  other  .h 
files  are  very  dependent,  and  their  ranking  is  vital.  The 
following  order  is: 

1.  error.h 

2.  driverext.h 

3.  ddutilext.h 

4.  ctlOext.h 

5.  ctllext.h 

6.  util 2ext . h 

7.  utilext.h 

8.  common. h 

9.  userext.h 

Include  files  were  built  using  .h  instead  of  .i  file 
specifications.  The  . i  file  specification  is  treated  as 
text,  but  requires  too  much  space.  So  the  .h  file 

specification  is  used  since  it  requires  less  space. 

The  original  VMS  Pascal  Include  files  were  not  structured 
as  shown  in  this  appendix.  Error.h  and  Common. h  include 
files  were  added  to  the  already  existing  ones.  This  was 

done  to  ensure  the  proper  dependencies  were  maintained. 
Also,  the  order  had  to  be  established  to  ensure  that  the 
most  dependent  routines  were  above  their  calling  routines. 

The  routines  within  each  Include  file  had  to  be 


restructured  to  also  maintain  the  correct  calling  sequence. 


This  was  not  done  for  the  VMS  Pascal  Core  System. 

The  Core  routines  only  have  the  necessary  Include  files 
in  their  code  in  order  to  save  space  in  the  program  and  on 
the  disk.  The  application  programs  will  have  all  of  these 
Include  files  in  their  program  to  ensure  that  any  Core 
routine  that  is  called  is  defined.  This  is  a  tradeoff 
between  saving  space  on  the  system  and  easier  usage  for  a 
user  writing  an  application  program.  This  way  a  user  does 
not  have  to  determine  what  Core  routines  he  will  be  using, 
the  routines  will  already  be  defined  for  him. 

The  other  Include  files  to  be  used  define  constants 
(def const. h) ,  types  (deftype.h),  and  variables  (extvar.h  or 
gblvar.h).  These  are  global  data  types  and  must  be  in  all 
routines  and  application  programs. 

§ybrguti.ne  Dependencies 

To  develop  this  Core  package  for  the  UNIX  operating 
system  the  structure  of  the  Core  routines  had  to  be 
determined.  A  way  to  determine  what  routine  called  what 
other  routine  or  routines  had  to  be  determined  in  order  to 
convert  from  the  VMS  operating  system  to  the  UNIX  operating 
system. 

Structured  Analysis  and  Design  Technique  (SADT)  diagrams 
were  first  considered  to  try  to  show  the  dependencies  of  all 
the  routines  and  their  interaction.  But  this  was  found 
early  on  to  be  too  confusing.  Ultimately,  SADT  diagrams 
were  used  to  show  the  overall  Core  system  at  a  very  high 
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level,  but  to  go  to  any  lower  levels  would  have  been  too 
cumbersome.  A  combination  of  SADT  diagrams  and  Structure 
charts  were  considered  but  dropped  for  the  same  reasons. 

Structure  charts  were  tried  but,  with  approximately  300 
subroutines  to  make  charts  and  establish  the  dependencies, 
this  would  have  taken  too  many  charts.  It  was  tried,  but  a 
rough  outline  of  these  routines  in  structure  chart  form  were 
too  complex  and  cumbersome  to  prove  very  useful.  It  would 
have  taken  too  much  effort  to  trace  the  calling  steps  of  one 
routine  from  the  independent  core  side  to  the  dependent 
device  driver  fallowing  the  structure  charts. 

Appendix  F  shows  how  the  final  interdependencies  were 
shown.  This  appendix  shows  the  connections  of  the  desired 
routines  in  an  ordered  structure  in  only  a  few  pages.  It 
shows  each  routine,  what  that  routine  does,  who  it  calls, 
and  who  it  is  called  by.  It  is  structured  by  Include  file, 
with  the  most  dependent  files  at  the  beginning  and  the  least 
dependent  files  at  the  end  of  each  Include  file.  This  way 
the  routines  are  organized  so  someone  can  easily  trace  a 
routine  and  its  dependencies  from  start  to  finish.  The 
routines  are  organized  so  that  to  locate  the  "called" 
routines  you  only  have  to  look  up,  and  to  locate  "called  by" 
routines  you  only  have  to  look  down.  This  way  a  user  only 
has  to  look  in  one  direction  to  follow  any  string  of 
dependencies.  This  has  been  one  of  the  most  useful 
appendices  for  converting  from  the  VMS  to  the  UNIX  operating 
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Duplicated  Variables 

As  shown  in  Appendix  C,  the  underscore  character  is 
accepted  in  the  VMS  Pascal  system,  but  not  in  the  UNIX 
Pascal  system.  This  required  the  removal  o-f  the  underscore 
character  from  all  routines  and  variables.  Programs  at 
first  did  not  work  as  they  should  have  because  of  this. 

A  way  to  isolate  and  change  duplicate  names  had  to  be 
found.  A  database  of  all  VMS  variables  and  a  database  of 
all  variables  with  the  underscore  character  removed  were 
compared  for  duplicates.  Once  these  duplicates  were  found 
their  usage  had  to  be  determined  and  which  variable  names  to 
be  changed  had  to  be  determined.  A  word  processor  on  a  home 
system  was  used  to  cross  check  all  these  variables  using  a 
"find"  function  on  the  word  processor. 

Appendix  J  shows  the  variables  that  had  potential  to 
cause  problems,  and  the  ones  that  have  been  isolated  and 
corrected. 

# 

Graphic  Devices  Used 

As  stated  in  chapter  2,  there  were  3  graphics  devices  to 
choose  from.  It  was  hoped  at  first  to  integrate  all  3  of 
these  graphics  devices  into  the  UNIX  Core  system.  But  time 
constraints  forced  the  selection  of  only  2  of  the  4  graphics 
devices.  The  2  graphics  devices  chosen  were  selected 
because  they  had  the  most  research  done  on  them,  could  be 
converted  within  the  time  constraints,  and  were  the  most 
readily  available  ones  to  other  students. 

A  lack  of  technical  manuals  for  each  of  these  graphics 


devices  was  a  major  obstacle. 

Except  -for  the  Hewlett  Packard  plotter,  there  are 
currently  no  other  color  graphics  devices  available. 

The  Tektronics  4014  Vector  Graphics  Terminal  was  not 
implemented  because  it  is  not  yet  connected  to  the  VAX  to 
support  graphics,  though  the  device  driver  software  -for  it 
has  been  developed  (see  Appendix  G  and  K) . 

The  two  graphics  devices  chosen  were  the  Visual  550 
Graphics  Terminal  (Tektronics  4014  emulation  mode),  and  the 
Hewlett  Packard  7220A  4  Color  Plotter. 

Hewlett  Packard  722QA  4  Color  PI otter 

This  graphics  device  was  chosen  because  there  are  two  of 
them  connected  to  Visual  100  terminals,  and  considerable 
research  was  done  on  its  graphics  output.  Another  key 
reason  is  that  this  is  currently  the  only  working  color 
graphics  device  connected  to  the  VAX  system. 

At  -first  the  CDC  Cal  comp  program  was  converted  over  from 
FORTRAN  IV  on  the  CDC  computer  to  FORTRAN  77  on  the  VAX  to 
be  used  on  the  plotter.  The  program  now  runs  on  the  VAX  and 
Appendix  H  explains  how.  But  the  Calcomp  package  was 
converted  over  in  FORTRAN  77,  and  the  incompatibility  would 
not  allow  any  of  these  routines  to  be  used  as  potential 
graphics  drivers  for  the  Pascal  Core  System. 

Other  graphics  packages  were  examined,  but  the  size 
limitation  forced  the  creation  of  specific  device  drivers. 


Visyal  550  Raster  GraQhi.cs  Terminal 


(Tektronics  4014  Emulation  Mode) 

The  Visual  550  terminal  was  chosen  to  be  used  in  the 
Tektronics  emulation  mode  because  more  research  has  been 
done  for  the  Tektronics  than  the  Visual  550  Raster  terminal. 
There  are  currently  4  of  these  Visual  550  terminals,  plus  in 
the  future  there  are  2  Tektronics  4014  terminals  that  will 
be  connected  to  the  VAX.  This  will  create  6  usable  4014 
terminals.  Again,  the  time  constraint  played  a  major  role 
in  selecting  what  terminals  to  develop. 

Graphic  Device  Drivers 

Device  driver  package  sizes  and  programming  language 
interfacing  were  the  key  elements  in  selecting  the  graphics 
drivers  for  the  2  selected  graphics  devices. 

Device  driver  packages  such  as  the  Tektronics  Plot— 10, 
Movie  BYU,  or  the  S  package  were  studied.  But  their  large 
size  was  the  main  reason  they  were  not  selected. 

Also,  interfacing  the  FORTRAN  77  graphics  drivers  with 
Pascal  has  been  determined  not  to  work  (See  Appendix  I). 

So  it  was  decided  to  develop  specific  graphics  drivers 
for  the  Pascal  Core  System  to  save  space  and  avoid 
programming  language  problems. 

The  input  for  these  graphics  devices  is  simulated  through 
the  keyboard  because  no  joysticks  or  graphics  tablets,  or 
other  such  input  devices  are  as  yet  installed. 

Language  Chosen  for  Device  Drivers 

The  C  language  was  chosen  for  the  graphics  device 


drivers.  C,  FORTRAN  77,  and  Pascal  programming  languages 
were  considered.  FORTRAN  77  was  ruled  out  because  o-f  the 
incompatibility  with  Pascal.  Pascal  was  also  ruled  out 
because  if  future  Core  packages  are  developed  on  the  UNIX  in 
FORTRAN  77  and  the  device  drivers  are  written  in  Pascal, 
then  new  drivers  would  have  to  be  developed.  C  was  chosen 
because  it  is  compatible  with  both  Pascal  and  FORTRAN  77. 
Also,  if  new  programming  languages,  such  as  ADA,  are  used  on 
a  UNIX  system,  C  will  hopefully  interface  with  it.  There 
would  be  a  chance  that  Pascal  or  FORTRAN  77  would  not 
interface  with  a  new  programming  language. 

Drivers  Created  for  Visual  550 
^X?^troni cs  4014  Emulation  Mode). 

Appendices  G  and  K  show  the  device  drivers  developed  for 
the  Visual  550  in  the  Tektronics  4014  emulation  mode. 

These  drivers  were  written  to  support  the  Pascal  Core 
graphics  dependent  routines.  They  replace  the  VMS  graphics 
routines  written  in  FORTRAN  77  for  the  Grinnel  graphics 
device.  Only  the  routines  needed  by  the  Tektronics  4014 
were  developed.  The  color  variables  have  been  ignored  for 
this  device.  But  they  could  be  used  at  a  future  date. 

Tran 14,  the  procedure  that  translates  x,y  coordinates 
into  low/high  x,y  bytes,  is  very  efficient.  It  translates 
all  incoming  x,y  coordinates  into  the  low/high  x,y  bytes, 
but  only  sends  the  bytes  that  are  required  for  a  particular 
graphics  command. 

Crossl4,  which  reads  the  cross  hair  position,  works  as  it 
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should,  but  there  is  a  problem  with  the  EOF  returned  by  the 
system.  The  Tektronics  returns  5  bytes  when  reading  the 
cross  hair.  Byte  1  is  the  keyboard  character  depressed, 
bytes  2  and  3  are  the  x  low  and  high  bytes,  and  bytes  4  and 
5  are  the  y  low  and  high  bytes.  These  are  returned  and  read 
correctly,  but  an  EOF  is  also  returned  causing  system 
problems.  The  only  way  to  flush  out  the  system  buffer  is  to 
do  another  read.  This  solves  the  problem,  but  it  is  still 
not  fully  understood  why  the  EOF  is  returned. 

For  routines  such  as  linel4  which  draws  a  line,  and 
pointl4  which  draws  a  point,  a  move  must  first  be  made  to 
the  start  of  the  line  or  point.  This  occurs  even  if  drawing 
consecutive  lines  connected  together.  This  is  wasteful,  but 
must  be  done  to  correctly  support  this  Core  system.  To 
complicate  matters,  the  current  screen  position  (represented 
by  xcop  ad  ycop  variables)  can  move  at  any  time,  but  the 
actual  cursor  can  remain  in  the  older  location,  so  a  move  to 
the  start  of  the  line  or  point  must  be  made. 

A  fill  routine  has  been  added  to  this  graphics  driver. 
It  is  part  of  the  polygon  fill  code  that  came  with  the  VMS 
system.  It  fills  by  using  a  "line  scan"  method.  This  "line 
scan"  method  draws  horizontal  lines  starting  at  the  bottom 
of  a  ploygon,  and  works  upward. 

Dri vers  Created  for  Hewlett  Packard  7220A  4  Color  Plotter 

Appendices  G  and  K  show  the  device  drivers  created  for 
the  Hewlett  Packard  plotter. 

The  drivers  written  for  the  plotter  are  designed  to  run 


at  2400  baud,  which  is  the  maximum  rate  that  the  plotter  can 


operate  at. 

The  way  the  Core  system  moves  the  current  screen  position 
without  updating  the  cursor  (plotter  pen  in  this  case) 
-forces  the  plotter  pen  to  be  in  the  up  position  -for  its 
de-fault  value.  This  causes  alot  of  "clicking"  as  the  pen  is 
moved  to  the  correct  position  pen  lowered,  line  drawn,  and 
the  pen  raised.  For  several  lines  or  points  being  drawn 
this  causes  alot  of  noise  and  unnecessary  movement. 

Some  background  characters  are  sent  back  to  the  Visual 
lOO  screen  as  the  plotter  is  taken  on  and  offline.  They  are 
only  "<"  and  " ) "  characters  sent  one  at  a  time,  and  though 
present,  do  not  interfere  with  the  application  program. 

A  pause  in  the  graphics  routines  when  the  plotter  is 
initialized,  or  a  new  graphics  frame  is  to  be  created, 
prompts  the  user  to  change  paper  in  the  plotter  if  he  wants 
to. 

Cross  hatching  has  not  as  yet  been  implemented  for  the 
plotter  due  to  the  time  constraint. 
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IV..  Anal ysi s/Test 


This  chapter  analyzes  the  UP  Pascal  Core  System  as 

implemented  on  the  VAX  11/780  with  a  UNIX  operating  system. 
The  Core  programs,  portability,  VAX  UNIX  system  support,  and 
the  user  environment  will  be  considered  in  this  analysis. 

To  analyze  this  system,  data  and  notes  kept  over  a 
several  month  period  will  be  used  to  help  make  observations 
in  addition  to  the  tests  made  on  the  functional  Core  system. 

Much  of  the  analysis  and  observations  made  in  this 

chapter  will  be  judgements  made  over  an  extended  time  on  the 

VAX  computer  system.  But  these  views  will  be  kept  in  line 
with  the  functional  and  performance  analysis.  The  views 
will  be  as  objective  as  possible. 

IlffiiQg  Analysis 

This  analysis  was  made  to  determine  the  speed  of  the  Core 
package  when  run  on  the  AFIT  VAX  UNIX  system.  The  CPU  and 
clock  timing  analysis  was  done  on  the  system  when  it  was 
saturated,  and  with  five  users  or  less.  Several  runs  were 
made,  and  the  results  averaged. 

A  program,  written  in  Pascal,  allows  a  variable  to  be 
entered  to  select  the  number  of  lines  to  be  drawn  for  either 
a  2  dimensional  or  a  3  dimensional  system.  The  program 
draws  groups  of  200  lines,  each  line  being  5.8  cm  long.  The 
only  potential  skewing  of  results  may  occur  as  the  variable 
to  select  the  number  of  lines  to  be  drawn  in  either  2 


dimensional  or  3  dimensional  form  is  selected. 


Timing  of  the  results  was  done  by  a  system  timer.  The 


results  were  -for  program  usage,  system  usage  (these  times 
combined  -for  total  cpu  time),  and  clock  time  for  how  long 
the  job  took  to  run.  The  cpu  time  will  be  to  the  nearest 
tenth  of  a  second,  while  the  clock  time  is  recorded  in 
minutes  and  seconds. 


Two  Dimensional  and  Three  Di.mensi.gnal  Test 

The  CPU  and  clock  timing  test  was  run  for  line  intervals 
of  200,  1000,  2000,  3000,  4000,  and  5000  lines.  Figures 
IV— 1,  IV— 2,  IV-3,  and  IV-4  show  the  results  for  five  users 
or  less  and  for  a  saturated  system. 

The  times  for  both  a  2  dimensional  and  a  3  dimensional 
system  were  the  same  when  averaged  out.  This  is  consistent 
because  the  Core  system  multiplies  all  values  of  its 
matrices.  Single  run  times  were  different,  but  only  by 
fractions  of  a  second. 

For  a  saturated  system  the  CPU  times  for  either  the  2 
dimensional  system  or  a  3  dimensional  system  do  not  follow  a 
linear  path.  The  CPU  time  to  draw  1000  lines  for  a 
saturated  system  was  15  seconds,  while  the  CPU  time  to  draw 
5000  lines  was  185  seconds.  It  should  have  taken  only  75 
seconds  to  draw  5000  lines  based  on  the  linear  extrapolation 
of  the  1000  line  estimate. 

Even  the  clock  times  show  that  a  linear  relationship  is 
not  followed. 


Figure  iv-l.  Two  and  Three  Dimensional  CPU  Timing 
Test,  System  Saturated 


Figure  IV-2.  Two  and  Three  Dimensional  CPU  Timing 
Test,  Five  Users  or  Less  on  System 


Figure  IV-3*  Two  and  Three  Dimensional  Clock  Timing 
Test,  System  Saturated 


Figure  IV-4.  Two  and  Three  Dimensional  Clock  Timing 
Test,  Five  Users  or  Less  on  System 


For  these  timing  tests,  the  9600  baud  serial  transfer 
rate  was  very  noticeable.  The  system  sends  905  bytes  in  one 
block  transfer.  This  was  causing  the  lines  to  be  drawn 
intermittingly,  where  some  lines  would  be  drawn,  then  a 
slight  pause  before  more  lines  would  be  drawn. 

The  operating  system  allowed  more  CPU  time  per  user  when 
there  were  fewer  users  on  the  system.  This  allowed  for  the 
slightly  faster  CPU  times,  but  much  faster  clock  times. 
However,  the  linear  path  when  comparing  CPU  time  was  not 
followed  in  either  case. 

The  more  blacks  of  graphic  data  that  has  to  be 
transferred  to  the  graphics  terminal  over  the  serial  line, 
after  being  processed  by  the  operating  system,  causes  a 
progressi vely  larger  time  to  draw  greater  numbers  of  lines. 

Space  Analysis 

The  space  analysis  is  grouped  into  either  computer  memory 
usage,  program  usage,  or  disk  storage  usage. 

Computer  Memory  Usage 

The  VAX  memory  contains  4  million  bytes  of  storage.  This 
memory  is  made  up  of  pages  (1  page  equals  1024  bytes).  To 
load  an  executable  program  of  say  153,600  bytes  would  take 
150  pages.  There  are  3906  pages  available  on  the  VAX  at  any 
given  time. 

The  simplest  Core  program  draws  a  diagonal  line  from  one 
corner  of  the  screen  to  the  opposite  corner.  It  takes  159 
pages  to  run  this  program.  So  3906  pages  divded  by  159 


pages  lets  only  25  users  access  the  VAX  memory  at  one  time, 
ignoring  the  dynamic  operating  system. 

The  other  extreme  is  the  intcore.run  program.  It  takes 
1322  pages  to  run  this  program.  So  3906  pages  divded  by 
1322  pages  lets  only  3  users  access  the  VAX  memory  at  one 
time,  again  ignoring  the  dynamic  operating  system. 

Though  this  does  not  take  into  account  the  dynamic 

operating  system  on  the  VAX,  it  does  give  an  indication  of 

how  large  the  Core  system  is  compared  to  the  memory 
available  on  the  VAX. 

Program  Usage 

The  main  emphasis  here  is  to  focus  attention  on  how  the 
data,  especially  the  data  for  lines,  is  stored. 

Presently,  data  for  the  x,y,z  coordinates  is  stored  for 
both  starting  and  ending  points  of  lines.  These  are  dynamic 
storage  locations  that  can  be  added  to  the  program  or 
deleted.  To  save  space,  only  the  points  for  lines  that  are 

not  consecutive  need  both  starting  and  ending  points.  Lines 

that  are  consecutive  only  need  the  continuation  point.  If 
all  the  lines  were  continuations,  then  half  the  program 
space  would  be  saved.  The  Core  system  currently  only 
manipulates  line  segments  with  both  a  starting  and  ending 
point. 

It  requires  156  bytes  for  the  creation  of  1  retained 
segment  using  the  UP  Core  package.  It  also  takes  368  bytes 
to  store  1  line  primitive  within  a  given  retained  segment. 
So  to  store  1000  line  primitives  within  a  single  retained 


segment  would  require  368, 156  bytes. 


But  most  of  this  program  storage  is  taken  by  the  x,y,z 
coordinates  for  a  polygon,  each  using  an  array  of  12  real 
numbers.  These  arrays  are  used  for  a  possible  12  sided 
polygon,  but  are  wasted  for  line  primitives  because  each 
coordinate  of  a  line  primitive  only  uses  one  of  these  real 
numbers.  246  bytes  of  program  storage  is  wasted  for  each 
line  primitive,  and  246,000  bytes  are  wasted  for  1000  line 
primitives. 

Disk  Storage  Usage 

Currently  to  hold  the  entire  Core  system  routines,  both 
text  and  object  files,  requires  about  12,275  blocks  (one 
block  equals  512  bytes)  of  disk  space. 

Since  this  amount  of  storage  is  large,  and  the  storage 
available  on  disks  is  limited,  this  has  required  that  the 
entire  Core  system  be  stored  on  magnetic  tape,  only  bringing 
in  the  files  as  necessary.  The  entire  Core  system  is 
brought  onto  disk  at  times,  but  for  only  limited  amounts  of 
time. 

Only  the  current  demonstration  program,  intcore.run  (see 
Appendix  E,  part  4),  containing  2664  blocks,  is  kept  on  disk 
for  any  extended  time. 


Si ngl_e  Screen  Graphics  Versus  Dual  Screen  Graphics 

This  is  a  comparison  using  the  Core  System  on  a  single 
screen  that  contains  both  the  text  and  the  graphics,  or 
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using  a  dual  screen  that  contains  one  screen  for  text,  and 
the  other  for  graphics. 

The  main  comparison  will  be  between  the  Visual  550 
(Tektronics  4014  emulation  mode)  single  screen  system,  and 
the  Hewlett  Packard  Plotter  with  the  Visual  100  as  its  text 
screen.  The  Core  System  that  was  written  for  the  VMS 
operating  system  used  a  dual  screen  setup. 

For  a  program  that  is  all  graphics  or  all  text,  a  single 
screen  is  no  problem.  The  problem  arises  when  the 
application  program  attempts  to  mix  Core  output  with 
non— Core  output. 

One  solution,  to  support  a  single  screen  concept,  is  to 
prompt  the  user  to  continue  displaying  graphics  or  go  back 
to  a  text  screen  for  more  information.  This  causes  a 
breaking  of  the  smooth  flow  of  a  program.  This  was  the 
method  used  when  converting  the  intcore.run  program  to  work 
with  the  Visual  550  terminal.  The  Core  escape  function 
allows  for  this  non-Core  i nput /output .  Escape (12)  puts  the 
application  into  the  Core  input /output  mode  by  first 
clearing  the  screen.  While  Escape<13)  puts  the  application 
back  into  the  standard  input/output  mode,  again  clearing  the 
screen.  Escape (14)  allows  the  user  to  select  one  of  four 
available  pens  on  the  Hewlett  Packard  plotter. 

Another  solution  is  to  break  the  screen  into  sections, 
one  section  for  text  only,  while  the  other  section  is  for 
graphics  only.  This  is  a  compromise  that  has  to  be 
determined  when  writing  an  application  program. 

The  dual  screen  concept  allows  for  a  smoother  flow  of 


information  for  both  text  and  graphics.  There  is  no  need  to 
determine  when  to  switch  from  text  to  graphics  or  back. 

Portability  of  Pascal  Core  System 

The  Pascal  Core  System  is  not  portable.  It  takes  time 
and  effort  to  determine  how  to  convert  it  from  one  machine 
to  another.  It  is  more  machine  dependent  than  independent. 

The  main  problem  is  in  the  interpretation  of  Pascal 
itself.  It  all  depends  on  how  a  particular  computer  system 
has  implemented  the  Pascal.  An  example  is  that  the  VMS 
Pascal  allows  for  variable  length  strings,  while  the  UNIX 
Pascal  only  allows  for  fixed  length  strings.  Or  the  VMS 
Pascal  allows  for  upper  and  lower  case  letters,  while  the 
UNIX  Pascal  only  recognizes  lower  case  letters.  Another 
example  is  where  the  VMS  Pascal  allows  the  underscore 
character  for  key  words,  but  the  UNIX  Pascal  flags  this  as 
an  error . 

Each  of  these  differences  has  to  be  determined  and 
corrections  made  to  all  300  routines,  if  necessary,  before 
the  Core  System  can  be  converted  correctly. 

This  doesn’t  mean  that  the  Pascal  Core  System  cannot  be 
converted,  but  it  is  very  time  consuming.  Now  that  the 
Pascal  Core  System  has  been  converted  over  to  run  on  the  VAX 
UNIX  system,  any  updates  will  be  fairly  easy  to  make  on  the 
UNIX  system.  But  to  convert  this  same  system  over  to 
another  Pascal  system,  besides  the  VMS  or  UNIX  systems,  will 
probably  require  the  same  tedious  effort. 
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Usabi  l^ty  of  Pascal.  Core  System  for  Education 

Education  is  this  UNIX  Pascal  Core  System's  intended  use. 
It  can  help  develop  a  student’s  understanding  of  graphics 
and  the  goal  of  portability  of  graphics  between  computer 
systems. 

A  student  can  study  how  a  Core  System  i s  supposed  to 
work,  then  using  this  Pascal  Core  System,  try  out  various 
graphic  routines  using  the  intcore.run  program.  In  this  way 
a  student  can  further  understand  how  the  Core  is  supposed  to 
function. 

Application  programs  can  also  be  supported  by  this 
graphics  package.  Not  only  can  this  Core  System  be  used  for 
education,  but  development  of  applications  in  support  of 
other  objectives. 

Very  Large  Scale  Integration  (VLSI)  can  be  developed 
using  this  Core  package.  Currently  the  real  constraint  is 
the  speed  of  drawing  lines  and  the  resolution  of  the  output 
device.  The  Visual  550  (Tektronics  4014  emulation  mode)  has 
a  1023  by  77S  pixel  resolution.  This  is  sufficient  for 
designs  if  they  are  created  and  viewed  in  sections.  The 
Hewlett  Packard  plotter  also  has  a  resolution  problem.  It 
can  draw  the  VLSI  designs  on  16  inch  by  12  inch  paper,  but 
the  pen  widths  are  a  limiting  factor.  A  VLSI  design  would 
have  to  be  drawn  in  parts,  then  the  plotter  pages  taped 
together  to  form  the  overall  design.  This  is  currently 
done  for  a  graphics  package  supporting  the  Versatec  raster 
platter,  but  the  resolution  of  the  Versatec  plotter  is  much 
greater  than  the  Hewlett  Packard  plotter. 


SADT  diagrams  can  be  created  on  this  system.  A  limiting 
factor  in  this  system  is  that  there  is  currently  no  way  to 
permanently  store  images  out  to  disk.  Once  the  Core  system 
is  exited,  all  the  data  and  designs  created  are  lost  and 
would  have  to  be  reentered. 

Core  System  Li.mi.tati.gns 

There  are  currently  VAX  system  limitations  that  restricts 
a  students  ability  to  complete  an  assigned  task  whether  it 
is  text  editing,  programming  for  a  class  assignment,  or  a 
graphics  project.  The  main  system  limitation  is  the 
available  disk  space. 

Disk  Space 

There  are  six  disk  systems  currently  available  for  use. 
Each  user  is  assigned  to  one  of  these  six  disk  systems.  The 
available  storage  capacity  of  each  disk  system  is  therefore 
the  limitation  for  each  user.  If  a  user  runs  out  of  disk 
space  on  his  disk  system,  the  operating  system  does  not  look 
for  more  room  on  the  other  disk  systems.  The  user  has  to 
delete  unnecessary  disk  files  in  order  to  create  more  room 
on  the  disk  system. 

The  disk  systems  are  grouped  as  shown  below: 


system 

k  bytes 

used 

free 

7.  used 

7623 

3791 

3832 

50  7. 

usr 

141545 

117201 

24344 

83  y. 

Is 

76123 

53284 

22839 

70  7. 

en 

141578 

126303 

15275 

89  7. 

ul 

26848 

22133 

4715 

82  y. 

tmp 

7317 

414 

6903 

6  y. 

This  is  not  necessarily  the  most  up  to  date  information 
of  the  usage  of  the  disk  systems.  But  over  several  months 
the  disk  system  has  been  consistently  saturated  as  shown 
above.  The  usr,  en,  and  Is  disk  systems  are  the  ones  used 
most  by  the  students. 

Disk  system  ul  has  been  used  to  develop  the  Pascal  Core 
package.  Currently  the  entire  Core  system  is  stored  out  on 
magnetic  tape.  The  intcore.run  is  the  only  large  disk  file 
currently  stored  out  on  this  particular  disk  system.  It 
takes  up  approx  i  mat  el  y  1363  k  bytes,  or  5%  of  the  total  disk 
space. 

When  the  entire  Core  package  is  transferred  from  magnetic 
tape  to  disk,  it  takes  approximately  12,275  blocks  of  disk 
storage,  or  about  23%  of  the  entire  disk  space.  This  is  the 
main  reason  that  the  Core  package  is  stored  out  on  magnetic 
tape.  This  allows  more  room  to  be  available  on  the  disk 
system.  But  at  times  this  Core  package  has  to  be  loaded 
into  disk  for  development.  When  this  happens,  the  disk 
usage  runs  up  to  approximately  92%.  Great  care  then  has  to 
be  taken  so  as  not  to  run  out  of  available  disk  space.  At 
97%  usage,  the  disk  system  automatically  shuts  off  input 
into  it. 

Core  Program  Limitations 

The  Core  System  is  limited  by  the  time  it  takes  to 
compile  a  program,  the  structure  of  the  include  files,  and 


the  routine  dependencies. 


Compile  Ti_mes 


The  time  it  takes  to  compile  a  Core  program  depends  on 
how  saturated  the  VAX  system  is,  the  size  of  the  Core 
program,  and  the  size  of  the  library. 

Two  comparisons  will  be  made.  One  comparison  will  be 
made  on  a  simple  program  that  draws  a  single  line  from  one 
corner  of  the  screen  to  the  opposite  corner.  The  other 
comparison  will  be  made  on  the  Core  program  that  tests  all 
the  separate  Core  routines. 

The  simple  Core  program  generally  takes  less  than  35 
seconds  CPU  time,  or  5  minutes  clock  time  to  compile  when 
the  system  is  busy.  Busy  is  meant  to  be  more  than  half  the 
available  terminals  and  modem  lines  are  in  use.  When  the 
system  is  not  busy,  it  takes  less  than  5  minutes  clock  time 
for  the  program  to  compile. 

Whereas  for  the  more  complex  Core  program,  the  times 
differ  dramatical ly.  Trying  to  compile  this  program  when 
the  system  is  busy  takes  4  hours  plus.  The  plus  means  this 
large  program  has  never  compiled  when  the  system  was  busy. 
Only  at  night,  after  1900  has  this  program  compiled,  taking 
about  8  CPU  minutes  and  over  2  clock  hours.  With  just  a 
single  user  on  the  system  it  takes  about  4  CPU  minutes  and 
30  clock  minutes  to  compile. 

Since  the  removal  of  the  word  processing  capability  on 
the  VAX,  the  compile  times  have  decreased  from  over  2  hours 
in  the  evening  to  less  than  1  hour.  But  for  a  single  user 
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followed.  The  UNIX  Pascal  requires  that  the  dependent 
routines  be  above  the  calling  routines  or  undefined  errors 
will  occur. 

Functional  Completeness  of  Pascal  Core  Package 

The  intcore.run  program  was  used  to  test  the  Pascal  Core 
System  to  determine  what  works  and  what  does  not  work. 

Appendix  E,  part  1,  shows  what  is  supported  by  the  Pascal 
Core  System  based  on  the  SI6GRAPH  1979  Standard  as  published 
in  the  August  1979  Computer  Graphics  Journal.  Of  those 
routines  listed,  I  will  explain  which  ones  do  not  work 
correctly. 

The  Core  30  perspective  projection  does  not  work.  This 
system  has  not  allowed  for  a  fourth  homogeneous  coordinate. 

The  routine  ddemptseg,  which  returns  dynamic  memory  to 
the  VAX  operating  system,  does  not  work  correctly.  When  it 
tries  to  dispose  of  the  specified  segment  a  "value  out  of 
range  error"  occurs.  The  reason  for  this  has  not  yet  been 
found.  To  bypass  this  problem,  the  dispose  has  been 
commented  out.  This  allows  the  Core  program  to  continue, 
but  the  dynamic  memory  is  not  returned  to  the  VAX  operating 
system. 

The  termcore  procedure  also  tries  to  dispose  of  the 
unused  space  in  the  program.  It  gets  a  value  out  of  range 
error.  This  dispose  statement  has  been  commented  out  so  the 
program  will  continue  to  function  correctly. 

When  entering  numeric  data  into  a  Pascal  program,  outside 
of  the  Core  system,  through  a  read In  statement,  if  a  non 
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numeric  entry  is  made,  then  the  entire  program  Mill  crash. 
This  is  a  system  constraint  and  there  is  no  way  around  it 


except  to  be  more  careful. 

Since  there  are  currently  no  color  terminals  available, 
no  color  is  supported  in  this  system.  Color  capability  is 
allowed  -for  in  the  Pascal  Core  System,  but  it  is  untested. 


Timesharing  versus  Dedicated  System 

The  current  VAX  system  is  set  up  in  a  timesharing  mode. 
For  the  current  usage  of  the  Core  system,  the  present  system 
setup  is  satisfactory.  But  this  setup  only  has  one  user  and 
limited  graphics  display.  Also,  the  graphics  devices 
available  are  limited  and  in  competition  for  by  other 
students. 


I 


To  support  a  class  of  20  students  using  this  Pascal  Core 
package  would  require  a  disk  system  with  10,000  k  bytes  for 
each  student.  This  would  require  a  disk  system  of  200,000  k 
bytes,  when  for  the  entire  school  there  is  only  400,000  k 
bytes  available. 

Graphics  terminals  would  be  needed  to  support  these  20 
students.  To  support  these  students  would  require  the  4 
Visual  550' s  and  the  2  Hewlett  Packard  Plotters  with  their  2 
supporting  Visual  100  terminals. 


With  this  many  computer  resources  needed,  then  something 
has  to  give.  One  alternative  is  to  use  the  Pascal  Core 
system  as  just  a  demonstration  to  familiarize  students  on 


how  the  Core  system  works.  This  would  not  tie  up  much  of 
the  currently  available  resources,  yet  would  allow  students 
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to  -further  understand  the  Core  system. 

Another  way  is  to  acquire  more  disk  systems  and  graphics 
terminals  and  dedicate  them,  still  on  a  timesharing  mode,  to 
the  Core  system  only. 

The  PDP  11/60  is  another  alternative.  It  could  be  set  up 
with  enough  disk  space  to  support  the  Core  system  on  a 
dedicated  basis. 

To  dramatically  reduce  the  time  to  draw  lines  on  the  VAX 
system  would  require  a  dedicated  system  with  parallel  data 
transfer.  The  system  currently  draws  67  lines  a  second,  but 
would  require  a  dedicated  system  to  draw  30  frames  a  second. 

Updating  the  Core  Package 

Updates  to  the  Core  system  will  have  to  be  made  in  the 
best  way  possible  because  the  system  is  so  large.  The  UNIX 
C  shell  command  allows  the  user  to  make  wholesale  changes  to 
all  files  located  within  one  directory.  This  way  most  of 
the  changes  to  the  Core  package  can  be  made  automatically. 

It  would  be  easiest  to  convert  the  entire  new  Core  system 
than  try  to  add  only  the  new  changes  to  the  older  version  of 
the  Core  system.  This  way  all  the  variables  and  procedures 
will  be  consistent.  Fallowing  the  changes  made  in  Appendix 
C  will  simplify  the  conversion  process. 

There  is  no  easy  way  to  convert  the  Core  package  on  the 
VAX.  The  VMS  system  is  so  different  from  the  UNIX  system 
that  no  standard  way  to  convert  from  one  to  the  other  using 
a  completely  automated  system  exists.  Most  of  the  changes 
can  be  automated,  but  some  of  the  changes  must  be  made  on  an 
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Yjl  GQQcl.usi.gns  and  Recommendations 

Conclusions 

The  Pascal  Core  System,  -for  the  most  part,  works  at  AFIT 
as  it  is  supposed  to.  This  is  a  good  tool  to  aid  students 
in  understanding  how  the  Core  System  is  supposed  to  work. 
It  helps  because  a  student  can  get  a  "hands  on"  -feeling  to 
how  the  Core  system  works.  He  no  longer  has  to  guess  how 
the  Core  system  works. 

The  problems  encountered  using  the  UNIX  operating  system 
will  be  an  aid  to  others  trying  to  convert  other  systems  to 
the  UNIX  system.  1-f  the  other  projects  do  not  involve  the 
Core  system,  the  lessons  learned  developing  the  Core  system 
will  still  help  them. 

The  use  o-f  Pascal  limits  the  portability  of  this  system, 
even  though  this  system  is  very  modular.  The  different 
interpretations  of  Pascal  on  different  systems  limits  its 
transportability.  Too  many  changes  have  to  be  made  to 
enable  the  Pascal  to  run  correctly  on  another  system.  The 
use  of  Pascal  makes  the  Core  system  more  dependent  on  the 
particular  system  it  is  designed  on. 

Most  of  the  time  spent  developing  the  Core  system  was 
spent  in  converting  the  Pascal  procedures  from  the  VMS 
system  over  to  the  UNIX  system. 

This  project  showed  that  a  Core  system  on  a  VMS  system 
can  be  converted  over  to  run  on  a  UNIX  system,  but  with 
great  difficulty.  Many  programming  and  UNIX  system 
constraints  had  to  be  resolved  at  each  step  of  the 


conversion. 


Interfacing  of  computer  programming  languages  such  as 
Pascal,  C,  and  FORTRAN  77  was  a  problem.  The  only  common 
language  among  the  three  was  found  to  be  C. 

Recommendations 

A  FORTRAN  77  Core  system  should  be  converted  and  tested 
on  the  UNIX  system  to  determine  what  problems  arise.  Then 
this  FORTRAN  77  system  should  be  compared  against  the  Pascal 
system  now  implemented.  It  should  be  tested  for  size, 
compile  time,  and  speed  of  drawing  lines.  The  current 
graphics  drivers  should  be  used  for  this  system  if  possible. 
Portability  of  this  system  should  be  considered  in  the 
evaluation. 

The  Pascal  Core  system  should  be  updated  to  the  latest 
VMS  Pascal  Core  package  that  has  been  sent  to  AFIT  from  the 
University  of  Pennsylvania.  This  will  help  determine  how 
easily  updates  can  be  made  to  this  system. 

If  possible,  add  a  graphics  tablet  and  lightpen  to  the 
Core  system  to  add  more  flexibility  to  the  system.  This 
will  allow  the  simulation  of  most  of  the  input  side  to  be 
changed  over  to  actual  input  device  commands,  instead  of 
being  simulated  by  the  keyboard. 

Bring  in  and  develop  a  color  terminal  to  demonstrate  the 
color  capability  of  the  Pascal  Core  System.  Though  the 
color  capability  is  supported  by  this  system,  it  has  not  yet 
been  tested  to  see  if  it  actually  works. 

Multiple  device  capability  should  be  added  to  the  VAX 


system  to  allow  the  core  program  to  switch  back  and  forth 
between  different  devices  while  the  program  is  running. 
Currently,  the  program  must  be  stopped  so  the  user  can  move 
to  another  graphics  terminal,  lasing  what  the  user  had 
already  done  on  the  previous  Core  program. 

The  ability  to  permanently  store  images  out  to  disk  for 
later  use  would  be  a  good  addition  to  this  package.  The 
Graphics  Standard  Planning  Committee  (GPSC)  Metafile 
proposal  takes  this  into  consideration  C13. 
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Pascal^  Core  System  and  Device  Driver  Compi  I_e  Fi_l.es 


#*************************************************************** 
#  * 

#  date:  12  oct  83  * 

#  version:  1.0  * 

#  name:  compile  * 

#  description:  this  system  program  automatically  compiles  the  * 

#  .c  and  .p  -files  listed  below  creating  .o  -files  * 

#  operating  system:  UNIX  * 

#  language:  c  shell  * 

#  inputs:  n/a  * 

#  outputs:  n/a  * 

#  global  variables  used:  n/a  * 

#  global  variables  changed:  n/a  * 

#  global  tables  used:  n/a  * 

#  library  routines:  n/a  * 

#  -files  read:  . c  and  . p  -files  listed  below  * 

#  -files  written:  .o  -files  listed  below  * 

#  modules  called:  n/a  * 

#  calling  modules:  n/a  * 

#  author:  Capt  John  W.  Taylor  * 

#  * 
**************************************************************** 
# 

#to  run  :  >make  -f  compile 

* 

************************************************************** 

* 

*  the  "/'*  slashes  after  the  .o  files  should  be  backwards 

*  slashes 

* 

************************************************************** 
all  :  one  two  thre  four  five  six  sevn  eght  nine  ten  elev  twel 
thir  frtn  fitn  sxtn  svtn  eghtn  nintn 
**************************************************************** 
one  :  awaitbut.o  await key. o  awaitpick.o  awaitstr2.o  awaitstr3.o/ 
clrseg.o  cltseg.o  crrseg.o  crtseg.o  dclndc.o  dclndx.o/ 
ddprntpdf.o  ddprntseg.o  delall.o  derseg.o 

* 

awaitbut.o  :  awaitbut.p 

pc  -c  — w  -o  awaitbut.p 

#  rm  awaitbut.o 

# 

awaitkey.o  :  awaitkey.p 

pc  -c  -w  -o  awaitkey.p 

#  rm  awaitkey.o 

# 

awaitpick.o  :  awaitpick.p 

pc  -c  -w  -o  awaitpick.p 
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#  rm  awaitpick.o 

* 

awaitstr2.o  :  awaitstr2.p 

pc  -c  — w  — o  awaitstr2.p 

#  rm  awaitstr2.a 

# 

awaitstr3.o  :  awaitstr3.p 

pc  — c  — w  — o  awaitstr3.p 

#  rm  awaitstr3.o 

* 

clrseg.o  :  clrseg.p 

pc  -c  — w  -o  clrseg.p 

#  rm  clrseg.o 

* 

cltseg.o  :  cltseg.p 

pc  -c  — w  -o  cltseg.p 

#  rm  cltseg.o 

# 

crrseg.o  :  crrseg.p 

pc  -c  — w  -o  crrseg.p 

#  rm  crrseg.o 

# 

cr tseg.o  :  crtseg.p 

pc  -c  — w  — o  crtseg.p 

#  rm  crtseg.o 

# 

dclndc.o  :  dclndc.p 

pc  -c  — w  — o  dclndc.p 

#  rm  dclndc.o 

# 

dclndx.o  :  dclndx.p 

pc  — c  — w  — o  dclndx.p 

#  rm  dclndx.o 

# 

ddprntpdf.o  :  ddprntpdf.p 

pc  — c  — w  — o  ddprntpdf.p 

#  rm  ddprntpdf.o 

* 

ddprntseg.o  :  ddprntseg.p 

pc  -c  -w  -o  ddprntseg.p 

#  rm  ddprntseg.o 

# 

del al l.o  :  delall.p 

pc  -c  — w  -o  delall.p 

#  rm  del al l.o 

* 

derseg.o  :  derseg.p 

pc  -c  -w  -o  derseg.p 

#  rm  derseg.o 

**************************************************************** 
two  :  dstdcl.o  environ. o  escape. o  ibgndx.o  iclndc.o  iclndx.o/ 
iconst.o  idtect.o  iflndx.o  ihilit.o  iitn2.o  iitr2.o/ 
iitr3.o  ilndx.o  ilstyl.o 

* 

dstdc l.o  :  dstdcl.p 


* .  •>  vv/V'/ 


pc  — c  — w  — o  dstdcl.p 

#  rm  dstdcl.o 

* 

environ. a  :  environ. p 

pc  — c  — w  — o  environ. p 

#  rm  environ. o 

# 

escape. o  :  escape. p 

pc  -c  — w  -o  escape. p 

#  rm  escape. o 

# 

ibgndx.o  :  ibgndx.p 

pc  -c  -w  -o  ibgndx.p 

#  rm  ibgndx.o 

# 

iclndc.o  :  iclndc.p 

pc  -c  — w  -o  iclndc.p 

#  rm  ibgndx.o 

# 

iclndx.o  :  iclndx.p 

pc  — c  — w  — o  i c 1 ndx . p 

#  rm  iclndx.o 

* 

i const . o  :  i const . p 

pc  — c  — w  — o  i const. p 

#  rm  i const. o 

tt 

idtect.o  :  idtect.p 

pc  -c  -w  -o  idtect.p 

#  rm  idtect.o 

tt 

iflndx.o  :  iflndx.p 

pc  -c  — w  — o  i-flndx.p 

#  rm  iflndx.o 

# 

ihilit.o  :  ihilit.p 

pc  -c  — w  — o  ihilit.p 

#  rm  ihilit.o 

* 

iitn2.o  :  iitn2.p 

pc  — c  — m  — o  iitn2.p 

#  rm  iitn2.o 

# 

iitr2.o  :  iitr2.p 

pc  -c  —  w  -o  iit:r2.p 

#  rm  iitr2.o 

* 

iitr3.o  :  iitr3.p 

pc  -c  — w  -o  iitr3.p 

#  rm  iitr3.o 

# 

ilndx.o  :  ilndx.p 

pc  -c  — w  -o  ilndx.p 

#  rm  ilndx.o 

tt 
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il sty l.o  :  ilstyl.p 

pc  -c  — w  — o  ilstyl.p 

#  rm  il sty l.o 

thre  :  ilwid.o  imksym.o  indcs2.o  indcs3.o  initcore.o  initde.o/ 
initgr.o  initvs.o  inqbut.o  inqdevst.o  inqecho.o/ 
inqicap.o  inqkey.o  inqloc2.o  inqloc3.o  inqlocdi.o 

# 

ilwid.o  :  ilwid.p 

pc  -c  -w  -o  ilwid.p 
rm  ilwid.o 


imksym.o  : 

PC 

#  rm 

* 

indcs2. o . : 

pc 

#  rm 

# 

indcs3.o  : 

pc 

#  rm 

# 


imksym. p 
-c  — w  -o 
imksym.o 

indcs2. p 
— c  — w  — o 
indcs2. o 

indcs3. p 
— c  -w  — o 
indcs3. o 


imksym. p 


indcs2.  p 


indcs3.  p 


initcore.o  :  initcore.p 

pc  -c  -w  -o  initcore.p 

#  rm  initcore.o 

# 

initde.o  :  initde.p 

pc  -c  -w  -o  initde.p 

#  rm  initde.o 

« 

initgr.o  :  initgr.p 

pc  -c  -w  — o  initgr.p 

#  rm  initgr.o 

# 


initvs.o  :  initvs.p 

pc  -c  -w  -o  initvs.p 

#  rm  initvs.o 

* 


inqbut.o  :  inqbut.p 

pc  -c  -w  -o  inqbut.p 

#  rm  inqbut.o 

# 

inqdevst.o  :  inqdevst.p 

pc  -c  — w  -o  inqdevst.p 

#  rm  inqdevst.o 

« 

inqecho.o  :  inqecho.p 

pc  -c  -w  -o  inqecho.p 

#  rm  inqecho.o 

# 

inqicap.o  :  inqicap.p 

pc  -c  -w  -o  inqicap.p 

#  rm  inqicap.o 
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# 

inqkey.o  :  inqkey.p 

pc  -c  — w  — o  inqkey.p 

#  rn  inqkey.o 

# 

inqloc2.o  :  inqloc2.p 

pc  -c  — w  -o  inqloc2.p 

#  rn  inqloc2.o 

# 

inqloc3.o  :  inqloc3.p 

pc  -c  — w  -o  inqloc3.p 

#  rm  inqloc3.o 

# 

inqlocdi.o  I  inqlocdi.p 

pc  -c  -w  -o  inqlocdi.p 

#  rm  inqlocdi.o 

**************************************************************** 
■four  :  inqlocp2.o  inqlocp3.o  inqpic.o  inqstrdi.o  inqstroke.o/ 

inqval.o  ioseg.o  iotseg.o  ipen.o  ipesty.o  ipid.o  iproj.o/ 
ipsn2.o  ipsn3.o  irsnam.o 

* 


inqlocp2.o 

pc 

#  rm 

# 

inqlocp3.o 

PC 

#  rm 

# 

inqpic.o  : 

PC 

#  rm 

* 


:  inqlocp2.p 

— c  — w  — o  inqlocp2.p 

inqlocp2.o 

:  inqlocp3.p 

-c  -w  -o  inqlocp3.p 

inqlocp3.o 

inqpic.p 

— c  — w  — o  inqpic.p 
inqpic.o 


inqstrdi.o  :  inqstrdi.p 

pc  -c  -h  — o  inqstrdi.p 

#  rm  inqstrdi.o 

# 

inqstroke.o  :  inqstroke.p 

pc  — c  — w  — o  inqstroke.p 

#  rm  inqstroke.o 

* 

inqval.o  :  inqval.p 

pc  -c  — w  -o  inqval.p 

#  rm  inqval.o 

* 

i oseg . o  :  i oseg . p 

pc  -c  — w  -o  ioseg.p 

#  rm  ioseg.o 

« 

iotseg.o  :  iotseg.p 

pc  -c  -w  -o  iotseg.p 

#  rm  iotseg.o 

# 

i pen . o  :  i pen . p 

pc  -c  -w  -o  ipen.p 


A— 5 


. ( 


rffl  ipen.o 


ipesty.o  :  ipesty.p 

pc  -c  — w  -o  ipesty.p 

#  rm  ipesty.o 

tt 

ipid.o  :  ipid.p 

pc  -c  — w  — o  ipid.p 

#  rm  ipid.o 

tt 

iproj.o  :  iproj.p 

pc  -c  -w  -o  iproj.p 
tt  rm  iproj.o 

# 

ipsn2.o  :  ipsn2.p 

pc  -c  -w  -o  ipsn2.p 
tt  rm  ipsn2.o 

tt 

ipsn3.o  :  ipsn3.p 

pc  — c  — w  — o  ipsn3.p 
tt  rm  ipsn3.o 

tt 

irsnam.o  :  irsnan.p 

pc  — c  — w  — o  irsnam.p 
tt  rm  irsnam.o 

tt*********"***********#****************************************** 
-five  :  isdet.o  ishilt.o  isitn2.o  isitr2.o  isitr3.o  istdcl.o/ 
isttyp.o  isvis.o  itrtyp.o  itxndx.o  ivcpar.o  ivdpth.o/ 
ivisib.o  ivpdis.o  ivpnor.o 

tt 

i sdet . o  :  i sdet . p 

pc  — c  — w  — o  isdet.p 
tt  rm  i sdet . o 

tt 

ishilt.o  :  ishilt.p 

pc  — c  — w  — o  ishilt.p 
tt  rm  ishilt.o 

tt 

isitn2.o  :  isitn2.p 

pc  -c  — w  -o  isitn2.p 
tt  rm  isitn2.o 

* 

isitr2.o  :  isitr2.p 

pc  -c  -w  -o  isitr2.p 
tt  rm  isitr2.o 

* 

isitr3.o  :  isitr3.p 

pc  -c  -w  -o  isitr3.p 
tt  rm  isitr3.o 

« 

istdcl.o  :  istdcl.p 

pc  -c  -w  -o  istdcl.p 
tt  rm  istdcl.o 

tt 

isttyp.o  :  isttyp.p 
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PC 

-c  —  w  — o 

* 

rm 

isttyp.o 

# 

isvis.c 

i  :  isvis.p 

PC 

-c  —  M  — o 

• 

rm 

isvis.o 

* 

i trtyp. 

o  : 

itrtyp.p 

PC 

— c  — w  -o 

* 

rm 

i trtyp. o 

« 

itxndx. 

o  : 

itxndx. p 

PC 

-c  —  w  — o 

* 

rm 

itxndx. o 

# 

i vcpar . 

o  : 

i vcpar. p 

pc 

— c  — w  — o 

* 

rm 

i vcpar . o 

# 

i vdpth . 

o  : 

i vdpth. p 

PC 

— c  — w  — o 

# 

rm 

i vdpth. o 

* 

i visib. 

o  : 

i visib. p 

PC 

-c  -w  -o 

* 

rm 

i visib. o 

* 

i vpdis. 

o  : 

ivpdis.p 

PC 

-c  -w  -o 

* 

rm 

i vpdis. o 

* 

i vpnor . 

o  : 

i vpnor . p 

PC 

— c  —  w  — o 

* 

rm 

i vpnor . o 

**************************************************************** 
six  :  ivprt2.o  ivprt3.o  ivr-fpt.o  ivup2.o  ivup3.o  iMindo.o/ 
lina2.o  lina3.o  linr2.o  linr3.o  marka2.o  «arki3.o/ 
markr2.o  markr3.o  nkpiccur.o 

* 


ivprt2.o  :  ivprt2.p 

pc  -c  -w  -o  ivprt2.p 

#  rm  ivprt2.o 

* 

ivprt3.o  :  ivprt3.p 

pc  -c  — w  -o  i vprt3. p 

#  rm  ivprt3.o 

« 

ivrfpt.o  :  ivrfpt.p 

pc  -c  -w  -o  ivrfpt.p 

#  rm  ivrfpt.o 

# 

ivup2.o  :  ivup2.p 

pc  -c  -w  -o  ivup2.p 

#  rm  ivup2.o 

* 
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ivup3.o  :  ivup3.p 

pc  — c  — w  — o  ivup3.p 

#  rm  ivup3.o 

* 

iwindo.o  :  iwindo.p 

pc  -c  — w  — o  iwindo.p 

#  rm  iwindo.o 

« 

lina2.o  :  lina2.p 

pc  -c  -w  -o  lina2.p 

#  rm  lina2.o 

« 

lina3.o  :  lina3.p 

pc  -c  — w  — o  lina3.p 

#  rm  lina3.o 

« 

linr2.o  :  linr2.p 

pc  — c  — w  — o  linr2.p 

#  rm  linr2.o 

# 

linr3.o  :  linr3.p 

pc  -c  -w  -o  linr3.p 

#  rm  linr3.o 

* 

marka2.o  :  marka2.p 

pc  -c  — w  -o  marka2.p 

#  rm  markat2.o 

# 

marka3.o  :  marka3.p 

pc  — c  -w  -o  marka3.p 

#  rm  marka3.o 

* 

markr2.o  :  markr2.p 

pc  — c  — w  — o  markr2.p 

#  rm  markr2.o 

# 

mar kr 3.o  :  markr3.p 

pc  -c  -w  -o  markr3.p 

#  rm  mar kr 3.o 

* 

mkpiccur.o  :  mkpiccur.p 

pc  — c  — w  — o  mkpiccur.p 

#  rm  mkpiccur.o 

**************************************************************** 

scvn  :  mova2.o  mova3.o  movr2.o  movr3.o  ndcwcs2.o  newframe.o/ 

newline. o  pickxy.o  plina2.o  plina3.o  plinr2.o  plinr3.o/ 
pmrka2.o  pmrka3.o  pmrkr2.o 

« 

mova^.o  :  mova2.p 

pc  -c  -w  -o  mova2.p 

#  rm  mova2.o 

« 

mova3.o  :  mova3.p 

pc  -c  -w  — o  mova3.p 

#  rm  mova3.o 


movr2.o  :  movr2.p 

pc  -c  — w  — o  movr2.p 

#  rn  movr2.o 

* 

«ovr3. o  :  movr 3. p 

pc  — c,  —  w  -o  movr 3 .  p 

#  rn  movr3.o 

* 

ndcwcs2.o  :  ndcwcs2.p 

pc  -c  — w  -o  ndcwcs2.p 

#  rn*  ndcwcs2.o 

# 

new-frame. a  :  new-frame,  p 

pc  -c  -w  — o  new-frame. p 

#  rm  new-frame .  o 

tt 

newline. a  :  newline. p 

pc  -c  — w  -o  newline. p 

#  rm  newline. o 

# 

pickxy.o  :  pickxy.p 

pc  — c  -w  -a  pickxy.p 

#  rm  pickxy.o 

* 

plina2.o  :  plina2.p 

pc  -c  -w  -o  plina2.p 

#  rm  plina2.o 

« 

plina3.o  :  plina3.p 

pc  -c  — w  -o  plina3.p 

#  rm  plina3.o 

« 

plinr2.o  :  plinr2.p 

pc  -c  -w  -o  plinr2.p 

#  rm  plinr2.o 

# 

plinr3.o  :  plinr3.p 

pc  -c  -w  -o  plinr3.p 

#  rm  plinr3.o 

# 

pmrka2.o  :  pmrka2.p 

pc  -c  -w  -o  pmrka2.p 

#  rm  pmrka2.o 

* 

pmrka3.o  :  pmrka3.p 

pc  -c  — w  -o  pmrka3.p 

#  rm  pmrka3.o 

* 

pmrkr2.o  :  pmrkr2.p 

pc  -c  — w  — o  pmrkr2.p 
#  rm  pmrkr3.o 

#******************^******************************************** 
eght  :  pmrkr3.o  polloc2.o  polloc3.o  polval.o  polya2.o  polya3.o/ 
polyr2.o  polyr3.o  printer. o  renseg.o  sbgndx.o  sbupdt.o/ 


sclipw.o  sclpbp.o  sclp-fp.o 

# 

pmrkr3.o  :  pmrkr3.p 

pc  — c  — m  — o  pmrkr3.p 

#  rm  pmrkr3.o 

* 

polloc2.o  :  pol 1 oc2. p 

pc  -c  — w  — o  polloc2.p 

#  rm  polloc2.o 

* 

polloc3.o  :  polloc3.p 

pc  -c  -w  -o  polloc3.p 

#  rm  polloc3.o 

* 

polval.o  :  polval.p 

pc  — c  — w  — o  polval.p 

#  rm  polval.o 

# 

polya2.o  :  polya2.p 

pc  — c  — w  — o  polya2.p 

#  rm  polya2.o 

tt 

polya3.o  :  polya3.p 

pc  -c  — m  -o  polya3.p 

#  rm  polya3.o 

# 

pol yr 2.o  :  polyr2.p 

pc  -c  -w  -o  polyr2.p 

#  rm  polyr2.o 

* 

pol yr 3.0  :  polyr3.p 

pc  -c  -w  -o  polyr3.p 

#  rm  polyr3.o 

* 

r.o  :  printer.p 

pc  -c  -w  -o  printer. p 

#  rm  printer. o 

* 

rcnseg.o  :  renseg.p 

pc  — c  — w  — o  renseg.p 

#  rm  renseg.o 

« 

sbgndx  . o  :  sbgndx.p 

pc  -c  -w  -o  sbgndx.p 

#  rm  sbgndx. o 

# 

sbupdt.o  :  sbupdt.p 

pc  -c  -w  -o  sbupdt.p 

#  rm  sbupdt.o 

« 

sclipw.o  :  sclipw.p 

pc  -c  -w  -o  sclipw.p 

#  rm  sclipw.o 

# 

sclpbp.o  : 


sclpbp.p 


pc  — c  — M  — o  sclpbp.p 

#  rm  sclpbp.o 

# 

SClp-fp.O  :  SClp-fp.p 

pc  -c  —  w  —  o  sclp-fp.p 

#  rm  sclpfp.o 

**************************************************************** 

nine  :  scortp.o  sdtect.o  setallbut.o  setbut.o  set ec hod . o/ 
setechog.o  setkey.o  setloc2.o  setloc3.o  setlocp2.o/ 
setlocp3.o  setmargin.o  setpic.o  setstroke.o  setval.o 

# 

scortp.o  :  scortp.p 

pc  — c  — w  -o  scortp.p 

#  rm  scortp.o 

* 

sdtect.o  :  sdtect.p 

pc  -c  -w  -o  sdtect.p 

#  rm  sdtect.o 

* 

setallbut.o  :  set all but. p 

pc  -c  — w  -o  set all but. p 

#  rm  setallbut.o 

# 

setbut . o  :  setbut . p 

pc  -c  -w  -o  setbut.p 

#  rm  setbut . o 

set ec hod . o  :  setechod.p 

pc  — c  -w  -o  setechod.p 

#  rm  setechod.o 

setechog.o  :  setechog.p 

pc  — c  — m  -o  setechog.p 

#  rm  setechog.o 

setkey.o  :  setkey.p 

pc  -c  — w  -o  setkey.p 

#  rm  setkey.o 

setloc2.o  :  setloc2.p 

pc  — c  -w  -o  setloc2.p 

#  rm  setloc2.o 

setloc3.o  :  setloc3.p 

pc  — c  -w  -o  setloc3.p 

#  rm  setloc3.o 

setlocp2.o  :  setlocp2.p 

pc  -c  -w  -o  setlocp2.p 

#  rm  setlocp2.o 

setlocp3.o  :  setlocp3.p 

pc  -c  -w  -o  setlocp3.p 

#  rm  setlocp3.o 
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setnargin.o  5  set mar gin.p 

pc  -c  — w  — o  setmargin.p 

#  ro  setnargin.o 

* 

setpic.o  :  setpic.p 

pc  -c  -w  -o  setpic.p 

#  r m  setpic.o 

* 

setstroke.o  :  setstroke.p 

pc  — c  — w  -o  setstroke.p 

#  rn  setstroke.o 

# 

setval.o  :  setval.p 

pc  — c  — w  — o  setval . p 

#  rm  setval.o 

#*************************************************************^* 

ten  :  sflndx.o  shilit.o  simmed.o  sitn2.o  sitr2.o  sitr3.o/ 
slndx.o  slstyl.o  slwid.o  smksym.o  sndcs2.o  sndcs3.o/ 
spen.o  spesty.o  spid.o 

* 

sflndx.o  :  sflndx.p 

pc  — c  — w  — o  sflndx.p 

#  rm  sflndx.o 

* 

shilit.o  :  shilit.p 

pc  — c  — w  — o  shilit.p 

#  rm  shilit.o 

simmed.o  :  simmed.p 

pc  — c  -h  -o  simmed.p 

#  rm  simmed.o 

sitn2.o  :  sitn2.p 

pc  — c  — w  — o  sitn2.p 

#  rm  sitn2.o 

sitr2.o  :  sitr2.p 

pc  — c  — m  — o  sitr2.p 

#  rm  sitr2.o 

sitr3.o  :  sitr3.p 

pc  — c  — m  — o  sitr3.p 

#  rm  sitr3.o 

slndx.o  :  slndx.p 

pc  -c  — m  -o  slndx.p 

#  rm  slndx.o 

slstyl.o  :  slstyl.p 

pc  -c  -w  -o  slstyl.p 

#  rm  slstyl.o 

slwid.o  :  slwid.p 

pc  -c  -w  -o  slwid.p 

#  rm  slwid.o 
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Mksyn.o  :  smksyn.p 

pc  -c  — w  — o  smksyn.p 

#  r m  smksym.o 

* 

sndcs2.o  :  sndcs2.p 

pc  -c  -w  -o  sndcs2.p 

#  rn  sndcs2.o 

* 

sndcs3.o  :  sndcs3.p 

pc  -c  — w  -o  sndcs3.p 

#  rn  sndcs3.o 

# 

spen.o  :  spen.p 

pc  -c  -w  -o  spen.p 

#  rn  spen.o 

* 

spesty.o  :  spesty.p 

pc  -c  — h  — o  spesty.p 

#  rn  spesty.o 

# 

spid.o  :  spid.p 

pc  -c  -w  -o  spid.p 

#  rn  spid.o 

**************************************************************** 

elev  :  sproj.o  ssdet.o  sshilt.o  ssitn2.o  ssitr2.o  ssitr3.o/ 
ssvis.o  strtyp.o  stxndx.o  svdpth.o  svisib.o  svpdis.o/ 
svpnor.o  svprt2.o  svprt3.o 

* 

spro j . o  :  sproj . p 

pc  — c  — w  -o  sproj . p 

#  rn  sproj . o 

# 

ssdet . o  :  ssdet . p 

pc  — c  — m  -o  ssdet. p 

#  rm  ssdet.o 

# 

sshilt.o  :  sshilt.p 

pc  -c  -w  -o  sshilt.p 

#  rm  sshilt.o 

* 

ssitn2.o  :  ssitn2.p 

pc  -c  -w  -o  ssitn2.p 

#  rm  ssitn2.o 

# 

ssitr2.o  :  ssitr2.p 

pc  -c  -w  -o  ssitr2.p 

#  rm  ssitr2.o 

* 

ssitr3.o  :  ssitr3.p 

pc  -c  -w  -o  ssitr3.p 

#  rm  ssitr3.o 

« 

ssvis.o  :  ssvis.p 

pc  -c  -**  -o  ssvis.p 
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rn  ssvxs.o 


I 


PH 


strtyp.o  :  strtyp.p 

pc  -c  -w  -o  strtyp.p 

#  rn  strtyp.o 

* 

stxndx.o  :  stxndx.p 

pc  — c  — w  — o  stxndx.p 

#  rn  stxndx.o 

* 

svdpth.o  :  svdpth.p 

pc  -c  — w  — o  svdpth.p 

#  rn  svdpth.o 

# 

svisib.o  :  svisib.p 

pc  — c  —n»  — o  svisib.p 

#  rn  svisib.o 

* 

svpdis.o  :  svpdis.p 

pc  — c  — w  — o  svpdis.p 

#  rn  svpdis.o 

* 

svpnor . o  :  svpnor . p 

pc  — c  — w  — o  svpnor. p 

#  rn  svpnor . o 

# 

svprt2.o  :  svprt2.p 

pc  -c  -w  -o  svprt2.p 

#  rn  svprt2.o 

* 

svprt3.o  :  svprt3.p 

pc  — c  — w  -o  svprt3.p 

#  rn  svprt3.o 

#*************************************************************** 

twel  :  svrfpt.o  svup2. o  svup3.o  swindo.o  termcore.o  temde.o/ 
termgr.o  termvs.o  textgr.o  wcsndc2.o 

# 

svrfpt.o  :  svrfpt.p 

pc  — c  — w  -o  svrfpt.p 

#  rn  svrfpt.o 

* 

svup2.o  :  svup2.p 

pc  -c  -w  -o  svup2.p 

#  rn  svup2.o 

* 

svup3.o  :  svup3.p 

pc  -c  — w  -o  svup3.p 

#  rn  svup3.o 

* 

swindo.o  :  swindo.p 

pc  — c  — w  — o  swindo.p 

#  rn  swindo.o 

# 

tnrncorc.o  :  tnrncors.p 

pc  -c  -w  -o  termcorc.p 


A— 14 


#  rut  termcore.o 

* 

termde.o  :  termde.p 

pc  — c  — w  — o  termde.p 

#  rm  termde.o 

# 

termgr.o  :  termgr.p 

pc  — c  — w  — o  termgr.p 

#  rm  termgr.o 

« 

termvs.o  :  termvs.p 

pc  -c  — w  -o  termvs.p 

#  rm  termvs.o 

« 

textgr.o  :  textgr.p 

pc  -c  -w  -o  textgr.p 

#  rm  textgr.o 

# 

wcsndc2.o  :  wcsndc2.p 

pc  — c  — w  -o  wcsndc2.p 

#  rm  wcsndc2.o 

**************************************************************** 
thir  :  clipper. o  concol.o  ddaddprim.o  ddclrseg.o  ddcrsprod.o/ 
dddotprod.o  dddrawseg.o  ddemptseg.o  dd-f indseg.o/ 
ddiniprim.o  ddinitdi.o  ddnewfrn.o  ddnewline.o  ddprevseg.o 

# 

clipper. o  :  clipper. p 

pc  -c  -w  -o  clipper. p 

#  rm  clipper.o 

* 

concol.o  :  concol.p 

pc  -c  — w  — o  concol . p 

#  rm  concol . o 

« 

ddaddprim.o  :  ddaddprim.p 

pc  -c  — w  -o  ddaddprim.p 

#  rm  ddaddprim.o 

« 

ddclrseg.o  :  ddclrseg.p 

pc  -c  — w  -o  ddclrseg.p 

#  rm  ddclrseg.o 

« 

ddcrsprod.o  :  ddcrsprod.p 

pc  -c  -w  -o  ddcrsprod.p 

#  rm  ddcrsprod.o 

« 

dddotprod.o  :  dddotprod.p 

pc  -c  — w  -o  dddotprod.p 

#  rm  dddotprod.o 

# 

dddrawseg.o  :  dddrawseg.p 

pc  — c  — w  -o  dddrawseg.p 
#  rm  dddrawseg.o 

« 

ddemptseg.o  :  ddemptseg.p 


pc  -c  — w  — o  ddemptseg . p 

#  rm  ddemptseg.o 

« 

dd-findseg.o  :  ddfindseg.p 

pc  -c  -w  — o  ddfindseg.p 

#  cm  dd-findseg.o 

# 

ddiniprim.o  :  ddiniprim.p 

pc  -c  — w  — o  ddiniprim.p 

#  rm  ddiniprim.o 

# 

ddinitdi.o  :  ddinitdi.p 

pc  — c  — w  -o  ddinitdi.p 

#  rm  ddinitdi.o 


ddnewfrm. o 


i.o  :  ddnew-frm.p 

pc  — c  — w  — o  ddnew-frm.p 

rm  ddnew-frm.o 


ddnewline.o  :  ddnewline.p 

pc  -c  — w  -o  ddnewline.p 

#  rm  ddnewline.o 

* 

ddpr evseg . o  :  ddpr evseg . p 

pc  — c  — w  — o  ddprevseg.p 

#  rm  ddpr evseg. o 

#***********#******************************-************-*-*-******* 
frtn  :  ddrealequ.o  ddunitvec.o  ddusrtrns.o  ddvtran.o/ 

ddwrldtns.o  eqnames.o  error. o  escapedd.o  -funnel. o/ 
imgtrans.o 

* 

ddrealequ.o  :  ddrealequ.p 

pc  -c  — w  — o  ddrealequ.p 

#  rm  ddrealequ.o 

* 

ddunitvec.o  :  ddunitvec.p 

pc  -c  -w  — o  ddunitvec.p 

#  rm  ddunitvec.o 

# 

ddusrtrns.o  :  ddusrtrns.p 

pc  -c  — w  — o  ddusrtrns.pj 

#  rm  ddusrtrns.o 

* 

ddvtran.o  :  ddvtran.p 

pc  -c  -w  -o  ddvtran.p 

#  rm  ddvtran.o 

* 

ddwrldtns.o  :  ddwrldtns.p 

pc  -c  -w  — o  ddwrldtns.p 

#  rm  ddwrldtns.o 

# 

eqnames.o  :  eqnames.p 

pc  -c  -w  -o  eqnames.p 
#  rm  eqnames.o 

« 
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i  %  * .  * .  • 

•  •  ' 


V  -  •  v 


.  %  v  ■■ 


■v  ■ 


1 


error . o  :  error . p 

pc  — c  — w  -o  error. p 

#  rm  error.o 

* 


escapedd . o 

pc 

#  rm 

* 


:  escapedd. p 
— c  — w  — o  escapedd. p 
escapedd. o 


R 

(“• 


funnel. o  : 

pc 

#  rm 

* 

imgtrans.  o 

pc 

#  rm 

# 


funnel .p 

-c  -w  -o  funnel. p 
funnel .o 

:  imgtrans. p 
— c  -w  -o  imgtrans. p 
imgtrans. o 


**************************************************************** 
fitn  :  initdd.o  initinput.o  invmat.o  locrel.o  makemat.o/ 

makinvmat.o  mpiccur.o  ndcx.o  ndcy.o  newfrmdd.o  plline.o 

# 


initdd.o  :  initdd.p 

pc  — c  — w  — o  initdd.p 
#  rm  initdd.o 

tt 


i 


initinput.o  :  initinput.p 

pc  -c  -w  -o  initinput.p 

#  rm  initinput.o 

* 

invmat.o  :  invmat.p 

pc  -c  -w  -o  invmat.p 

#  rm  invmat.o 

« 

locrel.o  :  locrel.p 

pc  — c  — w  — o  locrel.p 

#  rm  locrel.o 

# 

makemat . o  :  makemat . p 

pc  — c  — w  -o  makemat. p 

#  rm  makemat.o 

# 

makinvmat.o  :  makinvmat.p 

pc  — c  —v*  -o  makinvmat.p 

#  rm  makinvmat.o 

* 


mpiccur.o  :  mpiccur.p 

pc  -c  — w  -o  mpiccur.p 

#  rm  mpiccur.o 

* 


ndcx .  o 

* 

# 

ndcy. o 

* 


:  ndcx.p 

pc  -c  — w  -o  ndcx.p 
rm  ndcx.o 

:  ndcy.p 

pc  -c  -w  -o  ndcy.p 
rm  ndcy.o 
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i «-  •-  ^  All 


newfrmdd.o  i  new-frmdd.p 

pc  -c  -w  -o  new-frmdd.p 

#  rm  newfrmdd.o 

* 

plline.o  :  plline.p 

pc  -c  -w  -o  plline.p 
#  rm  plline.o 

#***************-************************************************ 
sxtn  :  plmark.o  plpgon.o  pltext.o  perdiv.o  pgetbut.o  pgetcur.o/ 
pgetkey.o  pgetloc2.o  pgetloc3.o  pgetstr2.o  pgetstr3.o/ 
pgetval.o  pputcur.o  primxtent.o 


# 

plmark.o 

# 

* 

plpgon.o 

* 

# 

pltext.o 

* 

# 

perdiv.o 


i  :  plmark.p 

pc  — c  -w  -o  plmark.p 

rm  plmark.o 

:  plpgon.p 

pc  -c  — w  — o  plpgon.p 
rm  plpgon.o 

:  pltext.p 

pc  -c  — w  -o  pltext.p 
rm  pltext.o 

i  :  perdiv.p 

pc  -c  -w  -o  perdiv.p 

rm  perdiv.o 


pgetbut.o  :  pgetbut.p 

pc  -c  -w  -o  pgetbut.p 

#  r m  pgetbut . o 

# 

pgetcur.o  :  pgetcur.p 

pc  -c  -w  -o  pgetcur.p 

#  rm  pgetcur . o 

# 

pgetkey.o  :  pgetkey.p 

pc  -c  — w  -o  pgetkey.p 

#  rm  pgetkey.o 

« 

pgetloc2.o  :  pgetloc2.p 

pc  -c  -w  -o  pgetloc2.p 

#  rm  pgetloc2.o 

# 

pgetloc3.o  :  pgetloc3.p 

pc  -c  -w  -o  pgetloc3.p 

#  rm  pgetloc3.o 

# 

pgetetr2.o  :  pgetstr2.p 

pc  -c  -w  -o  pgetstr2.p 

#  rm  pgetstr2.o 

* 

pgetstr3.o  :  pgetstr3.p 

pc  -c  -w  -o  pgetstr3.p 
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#  rm  pgetstr3.o 

* 

pgetval.o  :  pgetval.p 

pc  -c  — w  — o  pgetval.p 

#  rm  pgetval.o 

# 

pputcur.o  :  pput cur. p 

pc  -c  -w  -o  pputcur.p 

#  rm  pputcur.o 

* 

primxtent.o  :  primxtent.p 

pc  — c  — w  -o  primxtent.p 

#  rm  primxtent.o 

**************************************************************** 
svtn  :  ptrack.o  ptterm.o  scx.o  scy.o  txtcoor.o  winvewmap.o/ 
stubs. o  pplace.o  pcread.o  pchar.o  ppoly.o  pdrpab.o/ 
pterm.o  perase.o  pinit.o  pdrlin.o  pmovab.o 

# 

pplace.o  :  pplace.p 

pc  -c  -w  -o  pplace.p 

#  rm  pplace.o 

* 

pcread.o  :  pcread.p 

pc  — c  — w  — o  pcread.p 

#  rm  pcread.o 

* 

pchar . o  :  pchar . p 

pc  -c  -w  -o  pchar. p 

#  rm  pchar.o 

* 

ppoly.o  :  ppoly.p 

pc  -c  — w  -o  ppoly.p 

#  rm  ppoly.o 

* 

pdrpab.o  :  pdrpab.p 

pc  — c  — w  — o  pdrpab.p 
I  rm  pdrpab.o 

* 

pterm.o  :  pterm.p 

pc  — c  — w  — o  pterm.p 

#  rm  pterm.o 

ase.o  :  perase.p 

pc  — c  — w  -o  perase.p 

#  rm  perase.o 

# 

pinit.o  :  pinit.p 

pc  -c  — w  -o  pinit.p 
#  rm  pinit.o 

* 

pdrlin.o  :  pdrlin.p 

pc  — c  — w  — o  pdrlin.p 

#  rm  pdrlin.o 

# 

pmovab . o  :  pmovab . p 

pc  -c  — w  -o  pmovab. p 


y: 

£  ^ 

•  •*  ,  * 


#  rm  pmovab.o 

#*************************************************************** 
eghtn  :  charhp.o  movehp.o  linehp.o  termhp.o  inithp.o/ 

offhp.o  onhp.o  selectpenhp. o  charl4.o  movel4.o/ 
linel4.o  alphal4.o  graphl4.o  terml4.o  initl4.o  clrl4.o/ 
tranl4.o  crossl4.o  outl4.o  outhp.o  crosshp.o/ 
penhp.o  sizehp.o  size!4.o 


# 

charhp.o 


:  charhp.c 

cc  -c  — w  -o  charhp.c 
rm  charhp.o 


#  rm  charhp.o 

# 

movehp . o  :  movehp . c 

cc  -c  — w  — o  movehp. c 

#  rm  movehp.o 

# 

1 i nehp . o  :  1 i nehp . c 

cc  — c  — w  — o  linehp.c 

#  rm  linehp.o 

* 

termhp.o  :  termhp.c 

cc  — c  — w  — o  termhp.c 

#  rm  termhp.o 

* 

inithp.o  :  inithp.c 

cc  — c  — w  -o  inithp.c 

#  rm  inithp.o 


# 

# 

offhp.o 

* 

* 

onhp . o  : 


:  offhp.c 

cc  -c  -w  -o  offhp.c 
rm  offhp.o 

:  onhp . c 

cc  -c  -w  -o  onhp.c 
rm  onhp.o 


selectpenhp. o  :  selectpenhp. c 

cc  -c  -w  -o  selectpenhp.c 

#  rm  selectpenhp. o 

# 

char 14.0  :  char 14. c 

cc  — c  — w  — o  char  14. c 

#  rm  char 14.o 

# 

movel4.o  :  movel4.c 

cc  — c  — w  -o  movel4.c 

#  rm  move 14.o 

# 

linel4.o  :  linel4.c 

cc  -c  — w  -o  linel4.c 

#  rm  linel4.o 

# 

alphal4.o  :  alphal4.c 

cc  -c  -w  -o  alphal4.c 

#  rm  alpha!4.o 


m 
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graphl4.o  :  graph 14. c 

cc  — c  — w  — o  graph 14. c  • 

#  rm  graph 14.o 

« 

terml4.o  :  terml4.c 

cc  -c  -w  -o  terml4.c 

#  rm  terflil4.o 

# 

initl4.o  :  initl4.c 

cc  -c  — w  — o  initl4.c 

#  rm  initl4.o 

# 

clrl4.o  :  clrl4.c 

cc  — c  — w  -o  clrl4.c 

#  rm  clrl4.o 

# 

tranl4.o  :  tranl4.c 

cc  -c  -w  -o  tranl4.c 

#  rm  tranl4.o 

* 

crossl4.o  :  cross 1 4 . c 

cc  — c  — w  — o  crossl4.c 

#  rm  crossl4.o 

* 

out 14.o  :  out 14. c 

cc  -c  -w  -o  out 14. c 

#  rm  outhp.o 

• 

outhp.o  :  outhp.c 

cc  -c  -w  -o  outhp.c 

#  rm  outhp.o 

« 

crosshp.o  :  crosshp.c 

cc  — c  — w  — o  crosshp.c 

#  rm  crosshp.o 

# 

penhp.o  :  penhp.c 

cc  — c  -w  -o  penhp.c 

#  rm  penhp.o 

* 

sizehp.o  :  sizehp.c 

cc  — c  — m  — o  sizehp.c 

#  rm  sizehp.o 

* 

sizel4.o  :  sizel4.c 

cc  -c  — w  -o  sizel4.c 

#  rm  sizel4.o 

* 

ft*********************************************************** 

nintn  :  alphaS50.o  char550.o  clr550.o  cross550.o  graph550.o/ 
init550.o  line550.o  mode550.o  out5S0.o  move550.o/ 
term550.o  tran550.o  size550.o 

* 

alpha550.o  :  alpha550.c 


cc  -c  — w  -o  alpha550.c 

#  rm  alpha550.o 

« 

char550.o  :  char550.c 

cc  -c  — w  -o  char550.c 

#  rm  char550.o 

# 

clrSSO.o  :  clr550.c 

cc  -c  — w  — o  clr550.c 

#  rm  clrS50.o 

* 

crossSSO.o  :  cross550.c 

cc  -c  -w  -o  cross550.c 

#  rm  cross550.o 

# 

graph550.o  :  graph550.c 

cc  -c  — w  -o  graph5SO.c 

#  rm  graph550.o 

* 

init550.o  :  init550.c 

cc  -c  — m  -o  init550.c 

#  rm  init550.o 

* 

line550.o  :  linm5SO.c 

cc  — c  — w  —a  line550.c 

#  rm  linc550.o 

* 

modm550.o  :  mod *550. c 

cc  ~c  -w  -o  modm550.c 

#  rm  madm550.a 

* 

out 550. o  :  out 550. c 

cc  — c  — m  — o  out 550. c 

#  rm  out550. o 

# 

movm550. o  :  mov>550.c 

cc  — c  — w  — a  movm550.c 

#  rm  movm550.a 

* 

tmrmSSO. o  :  tmrm550.c 

cc  — c  -w  -o  term550.c 

#  rm  term550.o 

« 

tran550.o  :  tran5SO.c 

cc  -c  -w  -o  tran550.c 

#  rm  tran550.o 

# 

sizs550.o  :  sizm550.c 

cc  -c  — w  -o  sizm550.c 

#  rm  sizm550.o 


#«**********#***#******#******#***#********************#**-**"»•»** 
#  * 

#  date:  12  oct  83  * 

#  version:  1.0  * 

#  name:  compilel  * 

#  description:  this  system  program  automatically  compiles  the  * 

#  . c  and  . p  -files  listed  below  creating  .o  -files  * 

#  operating  system:  UNIX  * 

#  language:  c  shell  * 

#  inputs:  n/a  * 

#  outputs:  n/a  * 

#  global  variables  used:  n/a  * 

#  global  variables  changed:  n/a  * 

#  global  tables  used:  n/a  * 

#  library  routines:  n/a  * 

#  -files  read:  . c  and  .p  files  listed  below  * 

#  files  written:  .o  files  listed  below  * 

#  modules  called:  n/a  * 

#  calling  modules:  n/a  * 

#  author:  Capt  John  W.  Taylor  * 

#  * 
^s*****************************************#**#**********#*****- 
* 

#to  run  :  >make  — f  compilel 

« 

* 

*  the  ”/"  slashes  after  the  .o  files  should  be  backwards 

*  si ashes 


s#****************#*******-********#*************************** 

# 

all  :  one  two 

# 

**************************************************************** 

one  :  charhp.o  movehp.o  linehp.o  termhp.o  inithp.o/ 

offhp.o  onhp.o  selectpenhp.o  char 14. o  movel4.o/ 
linel4.o  alphal4.o  graphl4.o  terml4.o  initl4.o  clrl4.o/ 
tranl4.o  crossl4.o  out 14. o  outhp.o  crosshp.o/ 
penhp.o  sizehp.o  sizel4.o 

# 

charhp.o  :  charhp.c 

cc  -c  — w  -o  charhp.c 

#  rm  charhp.o 

* 

movehp.o  :  movehp.c 

cc  -c  — w  -o  movehp.c 

#  rm  movehp . o 

# 

linehp.o  :  linehp.c 

cc  -c  -w  — o  linehp.c 

#  rm  linehp.o 

* 

termhp.o  :  termhp.c 
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cc  — c  — w  — o  termhp.c 

#  rm  termhp.o 

* 

inithp.o  :  inithp.c 

cc  -c  -w  -o  inithp.c 

#  rm  inithp.o 

* 

of-Fhp.o  :  o-ffhp.c 

cc  -c  -w  — o  o-f-fhp.c 

#  rm  o-f-fhp.o 

# 

onhp . o  :  onhp . c 

cc  — c  — w  -o  onhp . c 

#  rm  onhp.o 

« 

selectpenhp.o  :  selectpenhp. c 

cc  -c  -w  -o  selectpenhp. 

#  rm  selectpenhp.o 

# 

charl4.o  :  charl4.c 

cc  — c  -w  — o  char 14. c 

#  rm  char 14.o 

# 

movel4.o  :  movel4.c 

cc  — c  — w  -o  movel4.c 

#  rm  movel4.o 

* 

linel4.o  :  linel4.c 

cc  -c  -w  — o  linel4.c 

#  rm  linel4.o 

* 

alphal4.o  :  alphal4.c 

cc  -c  — w  -o  alphal4. c 

#  rm  alphal4.o 

* 

graph 14.o  :  graph 1 4. c 

cc  — c  — w  -o  graph 14. c 

#  rm  graphl4.o 

* 

ter ml 4.o  :  terml4.c 

cc  -c  — w  -o  terml4.c 

#  rm  terml4.o 

* 

initl4.o  :  initl4.c 

cc  -c  -h  -o  initl4.c 

#  rm  initl4.o 

* 

clrl4.o  :  clrl4.c 

cc  -c  — w  -o  clrl4.c 

#  rm  clrl4.o 

« 

tranl4.o  :  tranl4.c 

cc  -c  — **  -o  tranl4.c 

#  rm  tranl4.o 

« 


crossl4.o  :  crossl4.c 

cc  -c  — w  — o  crossl4.c 

#  rm  cross 14.o 

* 

out 14.o  :  out 14. c 

cc  -c  — w  — o  out 14. c 

#  rm  outhp.o 

* 

outhp.o  :  outhp.c 

cc  — c  — w  -o  outhp.c 

#  rm  outhp.o 

# 

crosshp.o  :  crosshp.c 

cc  — c  — w  -o  crosshp.c 

#  rm  crosshp.o 

# 

penhp . o  :  penhp . c 

cc  — c  — w  — o  penhp. c 

#  rm  penhp. o 

# 

sizehp.o  :  sizehp.c 

cc  — c  — w  — o  sizehp.c 

#  rm  sizehp.o 

# 

sizel4.o  :  sizel4.c 

cc  -c  — w  — o  sizel4.c 

•  rm  sizel4.o 

# 

#*-»********************************************************* 

two  :  alpha550.o  char550.o  clr550.o  cross550.o  graph550.o/ 
init550.o  line550.o  mode550.o  out550.o  move550.o/ 
term550.o  tran550.o  size550.o 

« 

alpha550.o  :  alpha550.c 

cc  -c  -w  — o  alpha550.c 

#  rm  alpha550.o 

* 

charS50.o  :  char550.c 

cc  -c  -w  -o  char 550. c 

#  rm  charS50.o 

# 

clr550.o  :  clr550.c 

cc  — c  — w  — o  clr550.c 

#  rm  clr550.o 

* 

cross550.o  :  cross550.c 

cc  — c  — w  — o  cross550.c 

#  rm  cross550.o 

* 

graph550.o  :  graph550.c 

cc  -c  -w  -o  graph550.c 

#  rm  graph550.o 

* 

initS50.o  :  initSSO.c 

cc  -c  -w  -o  init550.c 


#  rm  init550.o 

* 

line550.o  :  line550.c 

cc  — c  — w  -o  line550.c 

#  rm  line550.o 

# 

mode550.o  :  mode550.c 

cc  ~c  -w  -o  mode550.c 

#  rm  mode550.o 

# 

out 550. o  :  out 550. c 

cc  -c  — h  -o  out 550. c 

#  rm  out 550. o 

* 

move550.o  :  moveSSO.c 

cc  — c  — m  — o  move550.c 

#  rm  move550.o 

# 

ter 0*550. o  :  term550.c 

cc  — c  — w  — o  terfn550.  c 

#  rm  term550.o 

* 

tran550. o  :  tran550.c 

cc  — c  — m  — o  tran550.c 

#  rm  tr an550.o 

# 

si ze550. o  :  si ze550. c 

cc  -c  -w  -o  size550.c 

#  rm  size550.o 
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Appendix  B 


Enseal.  Core  System  and  Device  Driver  Library  Fil,es 
#*************************************************************** 


#  * 

#  date:  12  oct  83  * 

#  version:  1.0  * 

#  name:  archive  a 

#  description:  a  system  routine  to  automatically  build  the  * 

#  upcore  library  for  use  in  compiling  core  * 

#  application  programs  * 

#  operating  system:  UNIX  * 

#  language:  c  shell  * 

#  inputs:  n/a  * 

#  outputs:  n/a  * 

#  global  variables  used:  n/a  * 

#  global  variables  changed:  n/a  * 

#  global  tables  used:  n/a  * 

#  library  routines:  n/a  * 

#  files  read:  . c ,  .p  files  listed  below  * 

#  files  written:  libl  * 

#  modules  called:  n/a  * 

#  calling  modules:  n/a  * 

#  author:  Capt  John  W.  Taylor  * 

#  * 


**************************************************************** 

* 

#  to  run  >make  -f  archive 

* 

**********#***********************************«-*********«-**-* 

# 

*  after  the  ”.o/“  specifications,  the  "/”  slashes  should 

*  be  backwards  slashes 

* 

*****##***#**#******##***************************«-********** 
all  :  fl  f 2  f 3  f 4  f 5  f 6  f7  f8  f9  flO  fll  fl2  fl3 
#  userext.h 
fl  : 

ar  q  libl  awaitbut.o/ 
awaitkey.o/ 
awaitpick.o/ 
awai tstr2. o/ 
awai tstr3. o/ 
clrseg.o/ 
cltseg.o/ 
crrseg. o/ 
crtseg.o/ 
dclndc.o/ 
dclndx.o/ 
ddprntpdf . o/ 
ddprntseg.o/ 
del all .o/ 


lwX*V'r»-C..T.  T"" 


I 


Is 


--.v. 

4a.', 


derseg.o/ 
dstdcl .  o/ 
environ. 0/ 
i bgndx . 0/ 
iclndc.o/ 
iclndx.o/ 
i const. 0/ 
idtect.o/ 
i-f  lndx.o/ 
ihi lit.o/ 
iitn2.o/ 
i itr2.o/ 
iitr3.o/ 
i lndx.o/ 
ilstyl .0/ 
i 1 wid.o/ 
imksym.o/ 
indcs2.o/ 
indcs3. 0/ 
ini tcore.o/ 
ini tde. 0/ 
ini tgr.o/ 
ini tvs. 0/ 
inqbut . o 


O 


#  userext.h 
•f  2  : 

ar  q 


❖ 


cont 

libi  inqdevst.o/ 
inqecho.o/ 
inqicap.o/ 
inqkey.o/ 
inqloc2.o/ 
inqloc3.o/ 
inqlocdi .0/ 
inqlocp2.o/ 
inq!ocp3.o/ 
inqpic. 0/ 
inqstrdi .0/ 
inqstroke.o/ 
inqval .0/ 
i oseg . 0/ 
iotseg. 0/ 
ipen. 0/ 
ipesty. 0/ 
ipid.o/ 
iproj . 0/ 
ipsn2. 0/ 
ipsn3. 0/ 
irsnam. 0/ 
i sdet . 0/ 
ishi lt.o/ 
isi  tn2.o/ 
isitr2.o/ 
isi tr3.o/ 
istdcl .0/ 
isttyp. 0/ 


B-2 


lBVlS.O/ 

itrtyp.o/ 
itxndx.o/ 
ivcpar.o/ 
i vdpth.o/ 
i visib.o/ 
i vpdis.o/ 
ivpnor.o/ 
i vprt2.o/ 
i vprt3.o/ 
i  vr-fpt .  o/ 
i vup2. o/ 
i vup3. o/ 
iwi ndo.o/ 

1 ina2. o/ 
lina3.o/ 

1 inr2. o/ 

1 inr3. o/ 
marka2. o/ 
marka3. o/ 
markr2. o/ 
mar kr 3.o/ 
mkpiccur.o 

#  userext.h  tont 

•f  3  : 

ar  q  libl  mova2.o/ 
mova3.o/ 
movr2.o/ 
movr3.o/ 
new-frame,  o/ 
newline.o/ 
pickxy.o/ 
pi ina2.o/ 
plina3.o/ 
plinr2.o/ 
pi inr3. o/ 
pmrka2. o/ 
pmrka3.o/ 
pmrkr2. o/ 
pmrkr3. o/ 
pol 1 oc2. o/ 
pol loc3. o/ 
pol val . o/ 
polya2. o/ 
polya3. o/ 
pol yr 2.o/ 
polyr3.o/ 
printer . o/ 
renseg.o/ 
sbgndx .o/ 
sbupdt . o/ 
scl ipw.o/ 
sclpbp.o/ 
sclp-f  p.o/ 
scortp.o/ 


t. 


sdtect.o/ 
setal lbut. o/ 
set but . o/ 
setechod . o/ 
setechog.o/ 
setkey. o/ 
setloc2.o/ 
set 1 oc3. o/ 
setlocp2.o/ 
setlocp3.o/ 
setmargin.o/ 
setpic.o/ 
setstroke.o/ 
setval . □/ 
s-f  lndx.o/ 
shi 1 i t. o/ 
si tn2. o/ 
si tr2. o/ 
sitr3.o/ 
slndx.o/ 
slstyl . o/ 
slwid.o/ 
smksym.o/ 
sndcs2. o/ 
sndcs3.o 

#  userext.h  cont 

f4  : 

ar  q  libi  spen.o/ 
spesty.o/ 
spid.o/ 
spraj .0/ 
ssdet . 0/ 
sshi lt.o/ 
ssitn2.o/ 
ssi tr2. 0/ 
ssi tr3. a/ 
ssvis. 0/ 
strtyp. 0/ 
stxndx.o/ 
svdpth.o/ 
svisib.o/ 
svpdis.o/ 
svpnor. 0/ 
svprt2. 0/ 
svprt3. 0/ 
svrf pt . 0/ 
svup2. 0/ 
svup3. a/ 
swindo. 0/ 
termcore. 0/ 
termde.o/ 
ter mgr .0/ 
termvs. 0/ 
textgr .0/ 
mpiccur . 0/ 


»« 
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escape. o 

#  common. h 
f  5  : 

a r  q  libl  txtcoor.o/ 
simmed.o/ 
ddnewline.o/ 
wcsndc2.o/ 
ndcwcs2. o 

#  utilext.h 

: 

ar  q  libl  makinvmat.o/ 
locrel . o/ 
ddinitdi .0/ 
ddclrseg. 0/ 
ddnewfrm.  0/ 
ddvtran.o/ 
ddprevseg.  0/ 
dd-f  indseg.o/ 
dddrawseg.o/ 
ddempt seg . 0/ 
ddaddprim.o/ 
ddiniprim.o/ 
eqnames.  o 

#  util2ext.h 
■f  7  : 


ar  q  libl  invmat.o/ 
primxtent.o/ 
wi nvewnap . 0/ 
perdiv.o/ 
cl ipper .0/ 
ddcrsprod. 0/ 
dddot prod . 0/ 
ddrealequ. 0/ 
dduni tvec.o/ 
ddwrldtns.o/ 
ddusrtrns.o 

#  ctllext.h 
f  8  : 

ar  q  libl  pgetcur.o/ 
pgetstr3.o/ 
pgetstr2.o/ 
pgetloc3. 0/ 
pgetloc2.o/ 
pgetval .0/ 
pgetkey.o/ 
pgetbut. 0/ 
ini tinput . 0/ 
escapedd.o/ 
new-frmdd.o/ 
-funnel  .0/ 
ini tdd. o 

#  ctlOext.h 

f9  : 

ar  q  libl  pputcur.o/ 
ptrack.o/ 


plnark.o/ 
pipgon.o/ 
pltext . o/ 
plline.o 

#  ddutilext.h 
flO  : 

a r  q  libl  makemat.o/ 
ingtrans. o/ 
ndcy.o/ 
ndcx . o/ 
scy.o/ 
sex . o/ 
concol . o 

#  driverext.h 
fll  : 

ar  q  libl  ptterm.o/ 
stubs. o/ 


pplace.o/ 
pcread.o/ 
pchar . o/ 
pdrpab. o/ 
pterin,  o/ 
perase.o/ 
pinit.o/ 
pdrl in.o/ 
pmovab . o/ 
ppoly.o/ 
charhp.o/ 
crosshp.o/ 
inithp.o/ 

1 inehp.o/ 

movehp.o/ 

of f hp. o/ 

onhp.o/ 

penhp.o/ 

selectpenhp . o/ 

termhp.o/ 

outhp. o/ 

alphal4.o/ 

char 14.o/ 

clr 14. o/ 

crossl4.o/ 

initl4.o/ 

linel4.o/ 

movel4.o/ 

graph  14. o/ 

terml4.o/ 

tr an 14.o/ 

out 14.o 

#  driverexh.h  cont 

ar  q  libl  alpha550.o/ 
char 550.o/ 
clr550. o/ 
cross550. o/ 
ini t550.o/ 


#  date:  12  oct  83  * 

#  version:  1.0  * 

#  name:  archivel  * 

#  description:  a  system  routine  to  automatically  build  the  * 

#  graphics  library  -for  use  in  compiling  app—  * 

#  li cat ion  programs  * 

#  graphics  device  drivers  written  -For:  * 

#  1.  tektronics  4014  * 

#  2.  hewlett  packard  7220a  plotter  * 

#  3.  visual  550  * 

#  operating  system:  UNIX  * 

#  language:  c  shell  * 

#  inputs:  n/a  * 

#  outputs:  n/a  * 

#  global  variables  used:  n/a  * 

#  global  variables  changed:  n/a  * 

#  global  tables  used:  n/a  * 

#  library  routines:  n/a  * 

#  -Files  read:  . c ,  . p  files  listed  below  * 

#  files  written:  libl  * 

#  modules  called:  n/a  * 

#  calling  modules:  n/a  * 

#  author:  Capt  John  W.  Taylor  * 

#  * 
**************************************************************** 
« 

#  to  run  >make  -f  archivel 

# 

a***#****************************-*-****-***********-*********-** 

« 

*  after  the  ".a/"  specifications,  the  "/"  slashes  should 

*  be  backwards  slashes 

* 

a*********************************************************** 
all  :  fl  f 2  f 3  f 4 

* 

#  tektronics  4014  graphics  drivers 

# 

fl  : 

ar  q  lib2  alphal4.o/ 
char 14.o/ 
clr 14.o/ 
crossl4. o/ 
initl4.o/ 

1 inel4. o/ 
movel4. a/ 
graph 14.o/ 
sizel4.o/ 
terml4. o/ 
tranl4. o/ 
out 14.o 


#  heMlett  packard  7220a  graphics  drivers 

* 

f  2  : 

ar  q  lib2  charhp.o/ 
crosshp.o/ 
ini thp.o/ 
linehp.o/ 
eovehp.o/ 
ot-fhp.  o/ 
onhp . o/ 
penhp.o/ 
sel ectpenhp . o/ 
sizehp.o/ 
termhp.o/ 
outhp . o 

* 

#  visual  550  graphics  drivers 

* 

■f  3  : 

ar  q  lib2  alpha550.o/ 
char 550.0/ 
clr550.o/ 
crossSSO.o/ 
init550.o/ 
line550.o/ 
mode550.o/ 
aove550. o / 
graph550.o/ 
size550.o/ 
term 5 50. o/ 
tranSSO.o/ 
out 550. o 

« 

* 

f  4  : 

ranlib  lib2 


Appendix  C 


University  of  Pennsylvania  (UP)  Pascal  Core 
Svstea  Changes  From  VMS  To  UNIX  Ogerat  i_ng  System 

298  -files  total 


I.  LIST  OF  CHANGES  MADE  TO  UP  PASCAL  CORE  FILES 

II.  USER  CALLABLE  PROCEDURES 

III.  INCLUDE  FILES 

IV.  BATCH  PROGRAMS  TO  TEST  CORE  PACKAGE 

V.  FORTRAN  SUBROUTINES  TO  DRIVE  THE  6RINNELL  GRAPHICS  DEVICE 

VI.  DOCUMENTATION  FILES 

VII.  COMPILATION  FILES  -  FOR  VMS  VAX 

VIII.  PROCEDURES  TRANSPARENT  TO  USER 

IX.  GRINNELL  DEVICE  DEPENDENT  ROUTINES^ 

X.  ROUTINES  NOT  USED,  OR  DUPICATES  \ 


•********«****4HHHM»***4HHHHHHHHHHHH»- 


LIST  OF  CHANGES  MADE  TO  UP  PASCAL  CORE  FILES 

(numbers)  are  the  cross  reference  to  the  UPCORE.XXX  files 
before  the  conversion  to  the  VAX  11/780  UNIX  usable  -files 


THE  FOLLOWING  CHANGES  WERE  MADE  TO  ALL 
THE  FILES  LISTED  BELOW,  IF  ANY  ADDITIONAL 
CHANGES  FOR  A  FILE  WAS  MADE,  THEN  IT  WILL 
BE  EXPLAINED  ON  A  FILE  BY  FILE  BASIS. 

1.  ALL  CAPITAL  LETTERS  CONVERTED  TO 
LOWER  CASE  LETTERS 

2.  ALL  UPCORE.XXX  FILE  NAMES  CHANGED  TO 
ORIGINAL  VAX  11/780  VMS  OPERATING 

SYSTEM  NAMES,  WITH  A  .p,  -h,  .doc,  .con,  or  .f  FILE 
SPECIFICATION  MADE  FOR  USE  BY  THE 
VAX  11/780  UNIX  COMPUTER 

3.  “Module  filename11  HEADERS  COMMENTED  OUT  IN  .p  FILES 

4.  “Xinclude  ' incl :xxxxx.pas“  INCLUDE  FILES  IN  .p  FILES 
CHANGED  TO  “«include  ’xxxxx.h’ 

5.  [global]  and  [external  3  LABELS  REMOVED 

6.  "end. "  REMOVED  FROM  .p  FILES,  SINCE  THESE  ARE 
PROCEDURES  AND  THEY  MUST  TERMINATE  WITH  AN  “end;” 

7.  ALL  UNDERSCORES  REMOVED  SINCE  THE  UNIX 
PASCAL  SYSTEM  WILL  NOT  ACCEPT  UNDERSCORE 
CHARACTERS 

8.  CHANGED  “EXTERN"  TO  “EXTERNAL”  IN  -h  FILES 

9.  IF  THE  PASCAL  PROCEDURE  FILE  NAME  HAS  NOT  BEEN 
RENAMED  OFF  TO  THE  RIGHT  OF  THE  .p  FILE,  THEN 
THIS  FILE  NAME  IS  ALSO  THE  PROCEDURE  CALLABLE 
NAME.  IT  WILL  BE  ENCLOSED  IN  PARENTHESES. 

10.  (*♦-  or  +  1*)  REMOVED  FROM  .h  FILES 

11.  REMOVED  FROM  .h  FILES 

14.  NEW  FRAME  AND  CL  RSEB  PROCEDURES  CHANGED  TO 
DDNEWFRAME  AND  DDCLRSEG  PROCEDURES  TO  DISTINGUISH 
BETWEEN  THE  NEWFRAME.P  AND  CLRSEG.P  FILES 

15.  -w  OPTION  ADDED  TO  THE  COMPILE  FILE  TO  ELIMINATE 
THE  WARNING  MESSAGES  IN  THE  .p  FILE  COMPILES  THAT 
FLAGGED  THE  VARIABLES  THAT  ARE  UNUSED 

16.  INCLUDE  .h  FILES  ADDED  TO  THE  .p  FILES  AND  THE 
PROCEDURE  PARAMETER  LIST  REMOVED  TO  AVOID  DUPICATION 
ERRORS.  THIS  ALLOWS  THE  PROCEDURES  TO  BE 
REFERENCED  BY  THE  -h  FILES 

17.  VARIABLE  STRING  ARRAYS  ON  THE  VAX  11/780  WITH  VMS 
OPERATING  SYSTEM  USING  LENGTH (GETS  THE  LENGTH  OF  A 
STRING)  AND  PAD (PADS  THE  STRING  WITH  SPACES)  IS 
DELETED.  THIS  VAX  WAS  ALSO  ABLE  TO  CHANGE  THE 
USABLE  LENGTH  OF  A  STRING.  HOWEVER,  THE  UNIX 
PASCAL  OPERATING  SYSTEM  CANNOT  MANIPULATE 
VARIABLE  STRING  LENGTHS,  SO  THE  UPCORE  SYSTEM  HAS 
BEEN  ALTERED  TO  USE  FIXED  STRING  LENGTHS  OF  12  AND 


80  CHARACTERS.  THE  UNIX  SYSTEM  AUTOMATICALLY  SPACE 
FILLS  ANY  REMAINING  UNUSED  STRING  SPACE. 

18.  THE  .h  FILES  ARE  NOT  IN  THE  CORRECT  PASCAL  PROCEDUR 
ORDER.  PROCEDURES  THAT  REFERENCE  OTHER  ROUTINES 
MUST  BE  BELOW  THEM  IN  THE  .h  FILE,  OR  AN  *  UNDEFINED 
ERROR  WILL  OCCUR.  THE  CALLING  PROCEDURE  MUST  BE 
ABLE  TO  'LOOK  UP’  TO  FIND  THE  NECESSARY  ROUTINE. 

THE  -h  FILES  HAVE  BEEN  MODIFIED  AND  STRUCTURED  TO 
RUN  ON  THE  UNIX  OPERATING  SYSTEM.  THE  FOLLOWING  .h 
FILES  ARE  IN  THEIR  CORRECT  ORDER: 

error . h  -  added  23  Jun  83 

dri verext.h 
dduti lext.h 
ctlOext.h 
ctl lext.h 
util2ext.h 
uti lext.h 

comnon.h  -  added  23  Jun  83 

userext.h 

19.  VISINIT  VARIABLE  ADDED  TO  THE  FOLLOWING  FILES  TO 
DETERMINE  IF  THE  GRAPHICS  DEVICE  HAS  BEEN 
INITIALIZED  : 

lina2.p,  lina3.p,  linr2.p,  Iinr3.p,  marka2.p, 
earka3.p,  earkr2.p,  markr3.p,  plina2.p,  plina3.p, 

plinr2.p,  plinr3.p,  perka2.p,  perkr2.p,  perkr3.p, 

polya2.p,  polya3.p,  polyr2.p,  polyr3.p,  textgr.p, 

mi weed. p,  sbupdt.p,  ssvis.p,  delall.p,  derseg.p, 

new-frame. p,  mmhilt.p,  mmitn2.pf  smitr2.p, 
ssitr3.p 


II.  USER  CALLABLE  PROCEDURES 

(001)  awaitbut.p 
(002)  awaitkey.p 

(003)  awaitpick.p  -  (034)  ddname.p  is  old,  not  used 

warning  message  variables  debugging, 

news,  and  i  never  used 

(corrected) 

(004)  awaitstr2.p 
(009)  awaitstr3.p 
(Oil)  clrseg.p 
(012)  cltseg.p 

(019)  crrseg.p  -  errors  "otherwise"  in  case  statement  lines 

91  and  99:  deleted  identifier  line  199 
lastsegment  |  inserted 

(corrected)  complete  variable  set  inserted 
in  case,  and  an  ’else’  was  missing  from 
line  159 

(020)  crtseg.p 
(023)  dclndc.p 
(024)  dclndx.p 

(038)  ddprntpdf.p  (printpdf) 


- error  line  89,  replaced  -field 

id  with  record  id 

"writeln  ( - char,  length:  1) 

(corrected)  -function  length  Mas  added  to 
procedure 

(039)  ddprntseg.p  (printseg) 

-  error  line  79  char. length,  replaced 

-field  id  Mith  record  id 

(corrected)  -function  length  Mas  added  to 
procedure 

(050)  delall.p 
(051)  derseg.p 
(053)  dstdcl.p 

(055)  environ. p  (saveenv  and  restoreenv) 

(059)  escape. p 
(067)  ibgndx.p 
(068)  iclndc.p 
(069)  iclndx.p 
(070)  i const. p 
(071)  idtect.p 
(072)  iflndx.p 
(073)  ihilit.p 

(074)  iitn2.p  - error  line  46,  “otherwi se**  in  case  statement 

(corrected)  complete  variable  set  added  to 
case 

(075)  iitr2.p  -  error  line  46,  "otherMise"  in  case  statement 

(corrected)  complete  variable  set  added  to 
case 

(076)  iitr3.p 
(077)  ilndx.p 
(078)  ilstyl.p 
(079)  ilMid.p 
(081)  imksym.p 
(083)  indcs2.p 
(084)  indcs3.p 

(085)  initcore.p  -  (163)  oldinitco.p  is  the  old  initcore 

(087)  initde.p 
(088)  initgr.p 
(090)  inqbut.p 

(091)  inqdevst.p  (inqdevstat) 

(092)  inqecho.p 
(093)  inqicap.p 
(094)  inqkey.p 
(095)  inqloc2.p 
(096)  inqloc3.p 
(097)  inqlocdi.p 
(098)  inqlocp2.p 
(099)  inqlocp3.p 

(100)  inqpic.p 

(101)  inqstrdi.p 

(102)  inqstroke.p 

(103)  inqval.p 

(107)  ioseg.p 

(108)  iotseg.p 

(109)  ipen.p 


a 

r. 

(UO) 

ipesty.p 

i- 

(ill) 

ipid.p 

Si 

(M2) 

iproj . p 

(113) 

ipsn2.p 

H 

(114) 

ipsnS.p 

nj 

(US) 

irsnam.p 

a 

(116) 

isdet.p 

3 

(117) 

ishilt.p 

(118) 

isitn2.p 

1 

(119) 

isi tr2.p 

1 

(120) 

isitr3.p 

jffl 

(121) 

istdcl .p 

(122) 

isttyp.p 

tfj 

(123) 

isvis.p 

m 

(124) 

itrtyp.p 

■ 

(125) 

itxndx.p 

1 

(126) 

i vcpar.p 

| 

(127) 

ivdpth.p 

(128) 

i visib.p 

*N 

(129) 

ivpdis.p 

(130) 

i vpnor . p 

(131) 

i vprt2.p 

1 

(132) 

i vprt3.p 

(133) 

i vrfpt.p 

(134) 

i vup2. p 

(135) 

i vup3.p 

(136) 

iwindo.p 

f  & 

(137) 

lina2.p 

(138) 

lina3.p 

(140) 

linr2.p 

(141) 

linr3.p 

(145) 

marka2.p 

(146) 

marka3.p 

(147) 

markr2.p 

(148) 

markr3.p 

(149) 

mkpi ccur 

(150) 

mova2.p 

(151) 

mova3.p 

(152) 

movr 2 . p 

3 

(153) 

movr3. p 

(154) 

mpiccur . 

W* 

»• 

(155) 

ndcwcs2. 

y 

(158) 

nesframe 

(160) 

newline. 

(197) 

pickxy.p 

1 

(199) 

plina2.p 

£ 

(200) 

plina3.p 

£ 

(201) 

plinr2.p 

n 

(202) 

plinrS.p 

P 

(206) 

pmrka2.p 

(207) 

pmrka3.p 

(208) 

pmrkr2.p 

- don  not  appear  in  the  compile  -fill 

(016)  coreall.com 


(makepi ccurrent ) 


warning  message*,  variables  debugging,  newz , 

and  i  never  used 

(corrected) 


<2091 

(2101 

(2111 

(2121 

(2131 

(2141 

(2151 

(2161 

(2211 

(2301 

(2311 

(232 

(233 

(234 

(235 

(236 

(239 

(240 

(241 

(242 

(243 

(244 

(245 

(246 

(247 

(248 

(249 

(250 

(251 

(252 

(253 

(254 

(255 

(256 

(257 

(258 

(259 

(260 

(261 

(262 

(263 

(264 

(265 

(266 

(267 

(268 

(269 

(270 

(271 

(272 

(273 

(274 

(275 

(277 

(278 


parkr3.p 

polloc2.p 

pol loc3.p 

pol val . p 

polya2.p 

polya3. p 

polyr2.p 

polyr3.p 

printar.p 

rcnsag . p 

sbgndx.p 

sbupdt.p  (beginbupdt  and  endbupdt) 

sclipM.p 

sclpbp.p 

sclp-fp.p 

scortp.p 

sdtect.p 

set all but. p 

setbut . p 

setechod.p 

setechog.p 

set key. p 

setloc2.p 

setloc3.p 

setlocp2.p 

setlocp3.p 

sat Margin. p 

setpic.p 

set stroke,  p 

set val . p 

s-flndx.p 

shilit.p 

si need. p 

si tn2.p 

sitr2.p 

sitr3.p 

slndx . p 

si sty 1 . p 

slwid.p 

saksya.p 

sndcs2.p 

sndcs3.p 

spen.p 

spesty.p 

spid.p 

sproj . p 

ssdet . p 

sshi lt.p 

ssitn2.p 

ssitr2.p 

ssitr3.p 

ssvis.p 

strtyp.p 

svdpth.p 

svisib.p 


<279) 

(280) 

(281) 

<282) 

<283) 

<284) 

<285) 

<286) 

<287) 


svpdis.p 

svpnor.p 

svprt2. p 

svprt3.p 

svrfpt.p 

svup2. p 

svup3.p 

swindo.p 

tvrocore.p 


<288)  termde.p 
<289)  termgr.p 
<290)  textgr.p 


<297)  Mcsndc2.p 


*************** 


—  dispose (temp)  commented  out  because  of 
pointer  value  error.  Reason  for  error 
not  yet  found. 

visinit  set  to  false  to  deactivate  devici 


"*)"  added  before  "with  pA  do"  line,  now 

compiles  correctly 

(corrected) 


174  FILES 


**************************************************** 
III.  INCLUDE  FILES 


<021)  ctlOext . h  — 
<022)  ctl lext.h  -- 
<043)  dduti lext.h 
<047)  def const. h  - 


<049)  def type. h  - 


<052)  driverext.h 
<056)  envtype.h  — 
<061)  extvar.h  - 


<063)  gblvar.h  - 

<292)  unspecvar.h 
<293)  user ext. h  - 


<295)  util 2ex t . h  - 


—  defines  external  procedures 

—  defines  external  procedures 
-  defines  external  procedures 

—  defines  external  constants 

penmax  variable  reset  to  4  to  support 
4  pens 

—  defines  external  types 

changed  "nametype  *  varyingC123  of  char;* 
to  "nametype  =  packed  array  Cl.. 123  of 
char | " 

changed  "charray  *  varying  Ccharmax3  of 
char!"  to  "charray  *  packed  array 
Cl..charmax3  of  char;" 
changed  "char line  =  varying  Clinelengthl  of 
char;"  to  "charline  =  packed  array 
Cl . . 1 inelengthl  of  char;" 

<corrected) 

-  defines  external  procedures 

—  defines  external  types 

■  defines  external  variables 
variables  terror <deter mines  if  graphics 
device  on  or  off  line),  and  surfacename 
(determines  what  graphics  device  is  in 
use)  added 

—  defines  external  variables 

-  defines  external  variables 

-  defines  external  procedures 

this  include  file  references  all  user 
callable  procedures  listed  in  part  I. 

—  defines  external  procedures 


I.**. 


.  a  .a  XmX* 


(296)  utilext.h  -  defines  external  procedures 
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IV.  BATCH  PROGRAMS  TO  TEST  CORE  PACKAGE 

(006)  batch l.p  -  batch 

deeonstrates  operation  of  6  logical  input 
devices  warning,  many  fields  not  used 
(corrected) 

(007)  batch2.p  -  batch 

draws  a  diagonal  line  on  screen,  very  simple 
program  warning,  many  fields  not  used 
(corrected) 

(105)  intcore.p  -  55  pages  of  code,  extensive  core  test 

*****  many  errors  **** 

(corrected)  if  statements  replace  'otherwise* 
statements  in  case}  read 12,  read80,  and 
read let  procedures  added  to  intcore  to  read 
input  from  ert  into  strings (packed  array); 
nameldl  =  *y*  compares  changed  to  namel  = 

*y 

modified  and  commented  to  run  on  UNIX  Pascal 
system.  Minor  changes. 

***************  3  FILES 

**************************************************** 

V.  FORTRAN  SUBROUTINES  TO  DRIVE  THE  GRINNELL  GRAPHICS  DEVICE 


FORTRAN  SUBROUTINE  NAMES  THAT  ARE  NOT  FAMILIAR  TO 
THE  UNIX  SYSTEM  THAT  ARE  NOT  DEFINED  IN  ANY  OF 
THE  FORTRAN  SUBROUTINES: 


grf  cd 

grsbf i 

grqons 

grqlc 

grqrds 

grf  vc 

grebe k 

grf  ar 

grf  er 

grwdb 

grsbf d 

grqon 

grqbls 

grqlcs 

grnin 

grnbys 

grezel 

gredwd 

gredhg 

grerep 

These 

routines 

are  not  used  in  the 

UNIX  Core 

System. 

(064) 

gcom. f  — 

—  common  declaration 

,  not  used 

(065) 

gpc3.f  — 

—  no  good,  not  used 

(170) 

pchar . f 

(171) 

peread. f 

(172) 

pdreir . f 

(173) 

pdrdsk. f 

(174) 

pdrlab. f 

(175) 

pdrl in. f 

(176) 

pdrpab. f 

(177) 

pdrrec.f 

(178)  pera««.f 

(179)  perchr.f 

(180)  percir.f 

(182)  perdsk.f 

(183)  perlab.f 

(184)  perlin.f 

(185)  parpab.f 

(186)  parrvc  .  -f 

(187)  pexec.f 
(193)  pgetpo.f 
(198)  pinit.f 

(203)  plotter .f 

(204)  pmovab.f 

(205)  pmovre.f 

(217)  pplace.f 

(218)  ppoly.f 

(223)  psand.f  -  not  utad 

(224)  psetco.f 

(225)  psetgr.f 

(226)  pterm.f 
(229)  pvport . f 

**************  31  FILES 


VI.  DOCUMENTATION  FILES 

(009)  changes.doc  -  changes  to  the  pascal  core  systee 

(015)  core. doc  -  brief  sueeary  of  core  systee 

(017)  coreext.doc  -  documentation  on  any  additional  routines 

(018)  coreuse.doc  -  using  the  core  systee 

(048)  defs.doc  -  definitions  of  various  paraeeters  and 

attributes 

(104)  intcore.doc  -  shows  all  coeeand  menus 

(162)  notes.doc  -  miscellaneous  notes 

(294)  userincl.doc 


*****************  8  FILES 

**************************************************** 

VII.  COMPILATION  FILES  -  FOR  VMS  VAX 

(008)  batcomp.com  -  batch  compile  of  all  core  routines 

(013)  complib.com  -  compile  all  high  level  dd  routines 

(016)  coreall.com  -  compile  entire  core  di  system 

(139)  linkint.com 

•*******************  4  FILES 

**************************************************** 


VIII.  PROCEDURES  TRANSPARENT  TO  USER 


(010)  clipper. p - warning,  line  102  (***♦*♦***■***) 

line  195  newpt (p, k. . . )  not  defined 
contains  outcode  procedure,  so  (165) 
out code. p  not  needed 
(corrected) 

(025)  ddaddprim.p  (addprim) 

-  warning,  variables  prie  and  i  never  used 

(corrected) 

(026)  ddclrseg.p 

(027)  ddcrsprod.p  (function)  (crossproduct ) 

(028)  dddotprod.p  (dotproduct) 

(029)  dddrawseg.p  (drawseg) 

(030)  ddemptseg.p  (emptyseg) 

-  dispose (teep)  commented  out 

because  it  doesn’t  work 
(031)  ddfindseg.p  (function)  (findseg) 

(032)  ddiniprim.p  (initprim) 

-  symbol  redone  to  be  set  to  mrkr  instead  of 

defaulting  to  1  as  before 
(033)  ddinitdi . p  (initdi) 

(035)  ddnewfrm.p  (ddnewframe) 

(037)  ddprevseg.p  (function)  (prevseg) 

(040)  ddrealequ.p  (function)  (realequal) 

(041)  ddunitvec.p  (function)  (unitvector) 

(042)  ddusrtrns.p  (usertrans) 

(044)  ddvtran.p  (function)  (vtran) 

-  replaces  (045)  ddvtrnorg.p 

error,  line  201  “otherwise"  case  statement 
(corrected)  if  statement  replaces 
otherwise  statement 
(046)  ddwrldtns.p  (worldtrans) 

(057)  eqnames.p  (function) 

-  lines  20,  21,  22,  23  “length"  is  an 

undefined  function 
lines  21,  23  “pad"  is  an 
undefined  function 

(corrected)  since  ’length’  is  not  used, 
these  lines  are  commented  out 

(058)  error. p  -  error,  line  289  “otherwise"  case  statement 

(corrected)  if  statement  replaces  otherwise 
statement 

(106)  invmat.p 

(142)  locrel.p  (function)  (locrec) 

-  error  line  50  iclass  improperly  used 

lines  50,  51  length  undefined 
(corrected)  changed  to  now  only  use  12 
character  strings 

(144)  makinvmat.p  -  documentation  says  makinvmat.p  replaced  by 

(143)  makemat.p,  but  (003)  awaitpick.p 
uses  it 

(181)  perdiv.p 
(220)  pri extent. p 
(276)  stxndx.p 
(298)  winvewmap.p 


*************************  26  FILES 


**************************************************** 

IX.  GRINNELL  DEVICE  DEPENDENT  ROUTINES 
(014)  concol.p 

(036)  ddnewline.p - doss  not  appear  in  the  (013)  coeplib.coe 

file 

(060)  escapedd.p  -  three  routines  added  : 

esc 12  -  put  terminal  on  line 
esc  13  -  put  terminal  off  line 
esc 14  -  select  a  pen 

variable  terror (checks  if  graphics  devices 
on  or  off  line)  added 

(062)  funnel. p  -  interface  between  dd  and  di  routines 

(080)  imgtrans.p 

(086)  initdd.p  -  rewritten  to  initialize  device 

(089)  initinput.p 

(143)  makemat.p  -  documentation  says  makemat.p  replaces 

(144)  makinvmat.p,  but  (144)  is  used  by 
(003)  awaitpick.p  this  appears  in  both  the 
device  independent  compile  file  (016) 
coreall.com,  and  the  device  dependent 
compile  file  (013)  complib.com 

( 156)  ndcx.p  (function) 

(157)  ndcy.p  (function) 

(159)  newfrmdd.p  (newframedd) 

(166)  plline.p  -  warning,  variables  co2,  co3,  col  not  used 

line  84  "*)"  added 
(corrected) 

(167)  plmark.p  -  warning,  variables  col,  co2,  co3  not  used 

error,  lines  102,  103,  104,  105,  106  "char" 
incompatible  with  string 

(corrected)  changed  'char'  in  driverext.h 
file  to  ’ddchar’  in  plmark,  p lower,  and 
perchr;  changed  single  compares  to 

’.  ’  and  1  to  80  in  pchar  calls) 

(168)  plpgon.p  -  warning,  variables  col,  co2,  co3  not  used 

line  180  "*) "  added 
(corrected) 

(169)  pltext.p  -  error  line  45  length  and  line  72  cstring 

allowed  only  on  records,  not  on  strings 
warning,  col,  co2,  co3  not  used 
(corrected)  function  length  added)  changed 
for  loops  to  loop  80  times)  pchar  changed 
to  use  80) 

(188)  pgetbut.p 

(189)  pgetcur.p  (pgetcursor) 

-  part  of  device  driver 

parameter  type  not  identical  to  type  of  va 

parameter  istat  of  ptrack 

this  file  appears  in  both  the  dependent 


(190) 


(191) 

(192) 


(194) 


(195) 


(196) 

(219) 

(227) 

(228) 

(237) 

(238) 
(291) 


pgetkey.p 

pgetloc2.p 
pgetloc3. p 

pgetstr2.p 

pgetstr3.p 

pgetval . p 


device  coapile  file  (013)  compl i b. com,  and 
tha  i ndapandant  davica  coapile  fila  (016) 
coreal 1 . coa 

—  warning,  variabla  kaynua  not  usad 

error,  line  49  string. length  iaproperly  used 
(corrected)  aostly  coaaented  out  now, 
changed  to  read  input  froa  crt  into  80 
character  string 
Proapt  aessage  added  to  code 

-  large  section  of  code  coaaented  out,  so  it 

will  run  on  UNIX 

-  warning,  variables  locnua,  butnua,  lx,  ly, 

lz,  not  used 
(corrected) 

-  warning,  variable  strokenua  not  used 

(corrected) 

Procedure  rewritten  to  run  on  UNIX. 

-  warning,  variables  arraysiz,  x array, 

y array,  z array,  snretrn,  and  strokenua 
not  used  (corrected) 

—  warning,  variable  valnua  not  used 
(corrected) 


pputcur . p 

ptrack.p 

pttera.p 

scx. p  (function) 

scy. p  (function) 

txtcoor.p  -  error,  line  51  7«class  replaced  field  id 

with  a  record  id 

(corrected)  function  length  added! 
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X.  FILES  NOT  USED,  OR  DUPLICATES 

(034)  ddnaae.p  (oldawai tpick) 

-  not  used,  use  (003)  awaitpick.p  instead 

error  line  375,  end)  expected 
warning,  kvariable  newz  not  used 

-  does  not  appear  in  the  coapile  file  (016) 

coreal 1 . coa 

-  changed  procedure  name  froa  awai tpick  to 

oldawai tpick 

(045)  ddvtrnorg.p  (oldvtran) 

-  replaced  by  (044)  ddvtran.p 

error,  line  187  "otherwise"  case  stateaent 

-  does  not  appear  in  the  coapile  file  (016) 

coreal 1 . coa 

-  changed  procedure  naae  from  vtran  to 

oldvtran 

(054)  end. p  -  not  used  at  all 

does  not  appear  in  the  coapile  file  (016) 
coreal 1 .coa 


C— 12 


(066)  hudwr.p  -  not  ut«d  at  all 

dan  not  appear  in  the  compile  file  (016) 
coreall.co* 

(082)  incl.p  -  undefine*  in  includ*  file*????? 

do**  not  appear  in  th*  co*pil*  fil*  (016) 
coreall.coM 

(161)  newpt. p  (oldnewpt) 

-  a  newpt  procedure  exists  within  (OlO) 

clipper.p 

-  changed  procedure  name  -fro*  newpt  to  oldnewpt 

(163)  oldinitco.p  (oldini tcore) 

-  this  is  the  old  ini tcore,  use  (08S) 

ini tcore. p  does  not  appear  in  the  compile 
file  (016)  coreall.co* 

-  changed  procedure  naae  fro*  ini tcore  to 

oldinitcore 

(164)  old*ak*at.p  (old*ake*at) 

-  this  is  the  old  *ake*atv  use 

(143)  *ake*at.p 
•any  errors ! ! ! ! ! 

does  not  appear  in  the  co*pile  file  (016) 
coreall.co* 

-  changed  procedure  name  fro*  *ake*at  to 

old*ake*at 

(165)  outcode.p  (oldoutcode) 

-  z*in  undefined,  this  subroutine  is  not  used 

in  (010)  clipper.p,  (OlO)  uses  its  own 
out code  procedure  does  not  appear  in  the 
compile  file 
(016)  coreall.co* 

-  changed  procedure  na*e  fro*  outcode  to 

ol d outcode 

(222)  prt*at.p  -  does  not  appear  in  the  compile  file  (016) 

coreal 1 .com 

used  as  a  debug  aid,  prints  a  4X4  matrix 
***************************  10  FILES 

as********************************************************** 


*• 
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Appendix  D 


Pascal  Cora  System  Additions 

Tha  following  Pascal  filas  were  added  to  the  Core  Systee  to 
replace  the  device  dependent  routines  written  in  FORTRAN  77  for 
the  VMS  Pascal  Core  Systee. 

These  routine  names  were  kept  the  same  to  keep  changes  to  the 
other  Core  routines  to  a  mini mum.  Not  all  the  routines  were 
converted  into  Pascal.  Only  the  routines  necessary  to  run  the 
Core  Systee  on  the  UNIX  Core  Systee  were  converted. 

Device  Dependent  Routines  : 


pmovab . p 
pdrl in.p 
pinit.p 
perase.p 
pterm.p 
pdrpab . p 

ppoly.p 

pchar . p 

pcread.p 

pplace.p 


eaves  to  the  specified  screen  coordinates 
draws  a  line  between  2  given  endpoints 
initializes  the  specified  graphics  device 
erases  the  specified  graphics  screen 
terminates  the  specified  graphics  device 
draws  a  point  on  the  specified  graphics 
device 

draws  filled  polygons  using  a  scan  line 
conversion  method 

writes  a  text  string  to  specified  graphics 

device (maxi sue  80  characters) 

gets  the  cross  hair  position  in  x,y 

coordinates  on  the  screen 

moves  the  cursor  to  the  specified  screen 

coordinates 


Also,  the  University  of  Pennsylvania  Core  System  was  designed 
to  support  only  one  graphics  device.  The  following  device 
independent  routines  were  added  to  allow  for  more  than  one 
graphics  device.  The  last  two  were  rewritten  to  support  the  new 
graphics  devices. 

Device  Independent  Routines  : 


ini tvs. p 

termvs.p 

pgetstr2.p 
ini tdd.p 


-  initialize  the  variables  for  the  selected 
graphics  device  (supports  only  one  active 
graphics  device  at  a  time) 

-  terminate  the  previously  selected 
graphics  device 

-  get  stroke  device 

-  initialize  device  dependent  variables 


Appendix  E 


Uggr  Docuwntation  for  Pascal  Core  Syste*  based  on 
SIQ6RAPH  August  1979  Cgre~Standards 


*********************************************************** 

user  documentation  -for  the  university  of  pennslyvania 
pascal  core  systee  on  the  a-fit  vax  11/780  with  unix 
operating  system (engineering  room  133). 

this  document  explains  how  to  use  the  pascal  core  system 
on  the  a-fit  vax  when  writing  application  programs, 
it  fallows  the  siggraph  79  standard  as  published  in  the 
august  1979  computer  graphics  journal. 

*»********************************************************* 

table  of  contents 

1.  core  functions  with  equivalent  pascal  procedure 

names (including  parameters) 

•  -  means  the  pascal  procedure  is  not  implemented 

2.  table  of  contents  of  user  level  procedures 


3.  application  program  example 

4.  program  that  demonstrates  and  tests  the  core  system 
************************************************************ 


1.  core  functions  with  equivalent  pascal  proceduri 
names (including  parameters) 


2  output  primitives 

2.1  overview 

2.2  functional  capabilities 
2.2.1  current  position 

2. 2. 1 . 1  move 
move_abs_2 (x , y ) 

mova2(x,y  :  real) 
move_abs_3 (x , y , z ) 
mova3(x,y,z  :  real) 
move_rel _2 (dx , dy ) 
movr2(dx,dy  :  real) 
move_rel _3 (dx , dy , dz ) 

movr3 (dx , dy, dz  :  real) 

2.2. 1.2  inquire  current  position 
inquire_current_posi t ion_2 (x , y) 

ipsn2(var  x , y  :  real) 
inquire_current_posi tion_3 (x , y, z ) 
ipsn3 (var  x,y,z  :  real) 


2.2.2  line  drawing  primitives 

2. 2. 2.1  line 
line_abs_2(x,y) 

lina2(x,y  :  real) 

1 ine_abs_3 (x,y,z) 

lina3(x,y,z  :  real) 

1 i ne_r el _2 (dx , dy ) 

linr2(dx,dy  :  real) 

1 ine_rel _3 (dx , dy t  dz ) 
linr3(dx,dy,dz  :  real) 

2. 2. 2. 2  polyline 

pol yl ine_abs_2 (x_array , y_array , n) 

pi ina2 (xarray , yarray  :  rarrayj  n  :  integer) 
polyl ine_abs_3 (x_array, y_array,z_array,n) 

pi ina3 (xarray , yarray, zarray  :  rarray;  n  :  integer) 
pol y 1 i ne_rel _2  <  dx  _arra y , dy _ar r ay ,  n ) 

plinr2(dxarray,dyarray  :  rarrayl  n  :  integer) 
pol yl i ne_rel _3 (dx_array , dy_array , dz_array , n ) 

pi inr3 (dxarray , dyarray , dzarray  :  rarrayl  n  :  integer) 

2.2.3  text  primitives 

2.2.3. 1  text (character  string) 
text (charst, n) 

textgr(ch  :  charray) 

2. 2. 3. 2  inquire  text  extent 
inquire_text_extent_2(character_string,sur-face_name, 

dx,dy> 

inquire_text_extent_3 (char acter_string, surf ace_name, 
dx,dy,dz ) 

2.2.4  marker  primitives 

2.2.4. 1  marker 

mar ker_abs_2 (x  , y ) 
marka2(x,y  :  real) 
mar ker_abs_3 (x,y,z) 
marka3(x,ytz  :  real) 
mar ker_rel _2 (dx , dy ) 
markr2(dx,dy  :  real) 
mar ker_rel _3 (dx , dy , dz ) 
markr3(dx ,dy,dz  :  real) 

2. 2. 4. 2  polymarker 
polymarker_abs_2(x_array,y_array,n) 

pmrka2 (xarray, yarray  :  rarrayl  n  :  integer) 
pol ymarker_abs_3 (x_arr ay, y_array,z_array,n) 

pmrka3 (xarray, yarray, zarray  :  rarrayl  n  :  integer) 
pol ymar ker _rel _2 (dx  _arr ay , dy_array , n ) 

pmrkr2(dxarray,dyarray  :  rarrayl  n  :  integer) 
pol ymar  ker  _r el _3 ( dx  _arr ay , dy_ar r ay , dz  _array , n ) 

pmrkr3 (dxarray, dyarray, dzarray  :  rarrayl  n  :  integer) 

2.2.5  polygon 

polygon_abs_2(x_array,y_array,n) 

pol ya2 (xarray, yarray  :  rarrayl  n  :  integer) 

pol ygon_abs_3 (x_array , y_arr ay , z .array , n ) 

pol ya3 (xarray, yarray, zarray  :  rarrayl  n  :  integer) 

pol ygon_rel _2 (x_array , y_array , n ) 

pol yr 2 (dxarray, dyarray  :  rarrayl  n  :  integer) 

pol ygon_rel _3 (x _ar ray , y_array , z  array, n ) 


integer) 


polyr3(dxarray,dyarray,dzarray  :  r array;  n  : 

2.2.6  prieitive  attributes 

3  picture  segmentation  and  naeing 

3.1  overview 

3.1.1  retained  segments 

3.1.2  temporary  segments 

3.2  -functional  capabilities 

3.2.1  retained  segments 

3.2. 1. 1 

cr eat e_r etai ned_segment < segment _name) 
crrseg (segnamel  :  nametype) 

3.2. 1.2 

close_retained_segment () 
clrsegl 

3.2.  1.3 

del ete_retai ned_segment ( segment _name ) 
derseg (segnamel  :  nametype) 

3.2. 1.4 

del ete_al 1 _retai ned_segments ( ) 
del all; 

3.2. 1.5 

rename_retained_segment (segaentname, newname) 
renseg (segnamel , newnime  :  nametype) 

3.2.  1.6 

*  i  nqui  re_r  etai  n  ed_seg  men  t_sur -faces  (  segment  _name, 

arraysi ze,  vi ew_surf ace_array , number_of _surf aces) 

3.2.1. 7 

i nqui r e_retai ned_segment  _names (array_si ze, 
segment_name_array,  nuwber  of _seq— nts) 
irsnam(max  :  integer;  var  naaearray  :  narray; 
var  nua  :  integer) 

3.2. 1. 8 

i nqui re_open_retai ned_segment (segment_name) 
ioseg (var  segname 1  :  nametype) 

3.2. 1.9  retained  segaient  attributes 

3.2.1.10  naming  of  primitives  for  pick  input 

3.2.2  temporary  segments 

3.2.2.  1 

create_temporary_segment ( ) 
crtseg; 

3.  2.  2.  2 

close_temporary_segment () 
cltseg; 

3.2.2. 3 

i nqui re_open_temporar y_sega»ent  (open) 
iotseg(var  open  :  boolean) 

4  attributes 

4.1  overview 

4.2  functional  capabilities 

4.2.1  static  attributes 

4.2. 1.1  setting  primitive  static  attribute  values 
set_l inestyle (1 inestyle) 
slstyl (1 instyl  :  integer) 


set _1 inewidth (1 inewidth) 
si Mid (width  :  integer) 
setpen (pen) 

spen (penn  :  integer) 
set_font  (font) 

set_cher si ze (char wi dth , char hei ght ) 
set  _char p 1 ane ( dx  _p 1 ane , dy_p 1 ane , dz_pl ane) 
set_charup_2 (dx_charup, dy_charup) 
set_charup_3 (dx_charup , dy_charup, dz_charup ) 
set_charpath (charpath) 
set_char space (char space) 
set_char just (char just) 
set_charprecision (charprecision) 
set_marker_symbol (syebol) 
smksyra ( sym  :  integer) 
set_pick_id (id) 

spid(id  :  integer) 

set_pol ygon_i nter i or _sty 1 e ( i nter i or _sty 1 e) 
set _pol ygon_edge_styl e ( edge_st y 1 e ) 
spesty(edge  :  integer) 
set_l ine_index (lineindex) 
slndxd index  :  integer) 
set_f i 1 1 _i ndex (f ill_index) 
sf lndx (fl index  :  integer) 
set _text_i ndex (text_index) 
stxndx (tx index  :  integer) 
set _1 i ne.col or ( 1 i ne_col or ) 
set_f i 1 l_color (f i 1 l_color ) 
set_text_color (text_color ) 
set_l i nei ntensi ty ( 1 i ne_i ntensi ty ) 
set_f i 1 l_in tensity (f i 1 l_intensity) 
set_text_i ntensi ty (text_i ntensi ty) 
set _ver tex _i ndi ces (vertex _indices) 
setvertex _col or s ( vertex  _col or s, n ) 
set _ver tex_i ntensi t i es (ver tex _i ntensi ties) 

4. 2.1. 2 

set _pr i mi t i ve_at  tr i but es_2 ( pr i ni t i ve_at t r i but e_ar r ay _2 ) 
set _pr i ei t i ve_at tr i but es_3 (pr i mi t i ve_at tr i bute_ar r  ay_3 ) 

4.2. 1.3  inquiring  primitive  static  attribute  values 
inquire_linestyle (1 inestyle) 

ilstyl (var  linstyl  :  integer) 
inquire_l inewidth (1 inewidth) 
ilwid (var  width  :  integer) 
inquire_pen (pen) 

i pen (var  penn  :  integer) 
inquire_font (font) 

i nqui re_char si ze (char wi dth , charhei ght ) 

i nqui r e_char p 1 ane (dx  _p 1 ane , dy _p 1 ane , dz  _p 1 ane ) 

i nqui r e_charup_2 (dx  _charup , dy_charup ) 

i nqui re_charup_3 (dx  _charup , dy_char up , dz  _charup ) 

inquirecharpath (charpath) 

inquire_charspace (char space) 

i nqui re_char just (char just) 

i nqui re_char pr ec i si on (charpr ec i si on ) 

inquire_marker_symbol (symbol ) 


■j.'j  r  wwwj  vyA  p.  wv.r.v'viv.*.  p. j".e.ir/. '.■•.*•.■• ' 


.vil  • .  - .  1 


[V 

L"< 


K 


* 

* 

* 

* 

# 

# 

* 


« 


& 


imksym(var  tya  :  intagar) 
inquire_pick_id (id) 

ipid(vaur  id  :  integer) 

i nqui r»_pol ygon_i nter i or _mty 1 • < i nter i or _*tyl •) 
i nqui re_pol ygon_edge_sty 1 • (edge.st y 1 e ) 
ipaaty(var  edge  :  integer) 
inquire_l ine.index (1 ine_ index ) 
ilndx(ver  lindex  :  integer) 
inquire.-f ill_index (f ill.index) 
i-flndx(ver  -f lindex  :  integer) 
inquire_text_index  <text_index) 
itxndx <v«r  txindex  :  integer) 
inquire.line.color  (1 ine_color ) 
inquire.f ill_color <f ill_color) 
inquire_text_color (text_color ) 
i nqui ra_l i ne_i ntensi t y  < 1 i ne_i ntensi ty ) 
inquire.f  i  1  l.intamsity  (f  ill_i ntensi  ty) 
inquire.tex t.intensity (text_i ntensi ty) 
i nqui re_vertex_ind ices (n, vertex _ind ices, 
number _of .vertices) 

inquire_vertex_col ore (n, vertex _col ore, 
number _at .vertices) 

i nqui ra_vartax_i ntensi t i es  (n , vertex  _i ntensi t i as, 
number  _o-f_  vert  icia?s) 

4.2. 1.4 

i nqui re_pr i mi t i ve_«ttr i butes_2 

(pr i mi ti ve.attr i but e_ar ray _2) 
i nqui re_pr i mi t i ve_*ttr i butes_3 

(primitive  attribute  array_3) 

4.2.1. 5 

set_image_transf oraMtion.type  (type) 
strtyp(ttype  :  integer)! 

4.2. 1.6 

i  nqui  re_i  aiage.tr  ansf  or  aieti  on_type  (type) 
itrtyp(v«r  ttype  :  integer) 

4.2. 1.7 

i  nqui  re_segment_i  aiage.tr  ansf  or  aieti  on  _  type 
(  segamnt  .naaxe.t  ype ) 

isttyp (segnsmel  :  neatetype)  var  ttype  :  integer) 
4.2.2  retained  segaient  dynamic  attributes 

4.2.2. 1  setting  retained  segaient  dynamic  attribute  value 
set_visibi 1 i ty (visibi 1 i ty) 

svisib(vis  :  boolean) 
set_high lighting (highlighting) 
shilit(hilit  :  boolean) 
set.detectabi 1 ity (dectectabi 1 i ty) 
sdtect (dtect  :  integer) 
set  _iaiage_tr  ansi  ate_2  (tx ,  ty) 
sitn2(tx,ty  :  real) 

set  _iaiage.tr  ansf  ormat  ion_2  (sx  ,  sy ,  a,  tx ,  ty ) 
sitr2(sx,sy,az,tx, ty  :  real) 
set  _i  aiage.tr  ansf  or  mat  i  on_3  (sx ,  xy ,  sz ,  ax ,  ay,  az  ,  tx ,  ty ,  tz ) 
sitr3(sx,sy,sz,ax,ay,az, tx, ty,tz  :  real) 

4. 2. 2. 2  inquiring  retained  segammt  dynamic  attribute 
values 


E-5 


inquire_visibi lity (visibility) 
ivisib(var  vis  :  boolean) 
inquire_highl ighting (highlighting) 
ihilit(var  hilit  :  boolean) 
inquire_detectabi 1 i ty (dectectabi lity) 
idtect(var  dtect  :  integer) 
i nqui r  e_i «age_transl ate_2 ( tx , ty ) 
iitn2(var  tx,ty  :  real) 
inquire_image_transf oreation_2 (sx,sy,a,tx, ty) 
iitr2(var  sx,sy,az,tx, ty  :  real) 
inquire_image_transf or mat ion_3 (sx , sy,sz , ax , ay, az , 
tx, ty, tz) 

iitr3(var  sx , sy , sz , ax , ay, az , tx , ty , tz  :  real) 

4. 2. 2. 3  setting  a  retained  segment ' s  dynamic  attribute 
val ues 

set _segment _vi si bi 1 i t y ( segment _name_vi si bi 1 i ty ) 
ssvis(segnamel  :  nametypet  vis  :  boolean) 
set_segment _hi gh 1 i ght i ng ( segment _name, hi ghl i ght i ng ) 
sshi 1 t (segnamel  :  nametype;  hilit  :  boolean) 
set_segment_detectabi lity (segment_name,detectabi lity) 
ssdet (segnamel  :  nametype;  det  :  integer) 
set  _segmen t  _i mage_ t r ansi ate_2 ( segment  _name , t x , t y ) 
ssitn2 (segnamel  :  nametype;  tx,ty  :  real) 
set_segment_image_transf ormation_2  ( segment  _name,  sx  , 
sy,a,tx,ty) 

ssitr2 (segnamel  :  nametype;  sx,sy,az, tx, ty  :  real) 
set_segment_image_trans-formation_3  (segment_name,  sx , 
sy,sz,  ax , ay , az , tx , ty, tz ) 
ssitr 3 (segnamel  :  nametype!  sx , sy, sz, ax , ay, az , 
tx,ty,tz  :  real) 

4. 2. 2. 4  inquiring  a  retained  segment's  dynamic  attribute 
values 

i nqui resegmentvi si bi 1 i ty ( segment _name, vi si bi 1 i ty ) 
isvis (segnamel  :  nametype;  var  vis  :  boolean) 
i nqui r e_segmen t _h i gh 1 i ght i ng ( segment _name, hi gh 1 i ght i ng ) 
ishi It (segnamel  :  nametype;  var  hilt  :  boolean) 
inquire_segment_detectabi lity ( segment _name, 
detectabi lity) 

isdet (segnamel  :  nametype;  var  det  :  integer) 
i nqui re_segment_i mage_tr ansi ate_2 ( segment _name, tx , ty ) 
i si tn2( segnamel  :  nametype;  var  tx,ty  :  real) 
i nqui re_segment_i mage_transf or mat i on_2 (segment _name, 
sx,sy,z,tx,ty) 

i si tr 2 (segnamel  :  nametype!  var  sx , sy, az , tx , ty  :  real) 
i  nqui  r  e_segment_i  mage_tr  ans-f  or  mat  i  on_3  ( segment  _name , 
sx,sy,sz,  ax , ay , az , tx , ty , tz ) 
i si tr3 (segnamel  :  nametype!  var  sx , sy, sz , ax , ay, az , 
tx,ty,tz  :  real) 

4.2.3  attribute  value  ranges 

4.2.3. 1  primitive  static  attributes 

4. 2. 3. 2  retained  segment  static  attributes 

4. 2. 3. 2  retained  segment  dynamic  attributes 

5  viewing  transformations 
5.1  overview 


5.1.1  2d  versus  3d 

5. 1.1.1  2d  viewing  operation 

5. 1.1.2  3d  viewing  operation 

5.1.2  view  plane 

5.1.3  projection 

5.1.4  windows,  view  volumes,  and  clipping 

5.1.5  normalized  device  coordinate  space,  viewsur-f act 

and  viewports 

5.1.6  world  coordinate  transformations 

5.1.7  image  transformation 

5.1.8  sample  scenario  for  defining  the  viewing 
transformation 

5.2  functional  capabilities 

5.2.1  2d  viewing  operation 

5.2. 1. 1 

set_window (xmin, xmax , ymin, ymax ) 

swindo (umin, umax , vmin, vmax  :  real) 

5.2.1. 2 

set_view_up_2  (dx_up, dy_up) 
svup2 (dxup, dyup  :  real) 

5.2.  1.3 

set__ndc_space_2  ( wi  dth,  hei  ght ) 
sndcs2< width, height  :  real) 

5.2. 1.4 

set_viewport_2 (xmin, xmax, ymin, ymax ) 
svprt2(xmin, xmax, ymin, ymax  :  real) 

5.2. 1.5  inquiry  for  individual  viewing  operation 
parameters 

i nqui r e_wi ndow (xmin, xmax , ymi n , ymax ) 

iwindotvar  umin, umax, vmin, vmax  :  real) 

i nqui re_vi ew_up_2 (dx_up , dy_up ) 
ivup2(var  dxup, dyup  :  real) 

i nqui r e_ndc_space_2 <  wi dth , hei ght ) 
indcs2(var  width, height  :  real) 

inquire_viewport_2 (xmin, xmax , ymin, ymax ) 
ivprt2(var  xmin, xmax , ymin, ymax  :  real) 

5.2.  1.6 

map_ndc_to_wor ld_2 (ndc_x , ndc_y , x , y ) 

ndcwcs2(nx,ny  :  real?  var  wx,wy  :  real) 

5.2.  1.7 

map_wor ld_to_ndc_2 (x , y , ndc_x , ndc_y ) 

wcsndc2(wx,wy  :  real;  var  nx,ny  :  real) 

5.2.2  3d  vi ewing  operation 

5.2.2. I 

set _vi ew_r ef er ence_poi nt  < x  _ref , y_ref , z  _ref ) 
svrf pt (xref , yref , zref  :  real) 

5.  2.  2.  2 

set _vi ew_pl ane_normal (dx_norm, dy_norm, dznorm) 
svpnor (dxnorm, dynorm, dznorm  :  real) 

5. 2. 2. 3 

set  _vi ew_p 1 ane_d i stance  <  vi ew_d i stance ) 
svpdis(dist  :  real) 

5. 2. 2. 4 

set_vi ewdepth ( front _di stance, back_di stance) 
svdpth (front, back  :  real) 
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5-2. 2. 5 

set_projection  (projection_type,dx_proj , dy_proj ,dz_proj ) 
sproj (projtype  :  integer;  dxproj , dyproj , dzproj  :  real) 

5.  2.  2.  a 

swi  ndo  (uini  n ,  unax  ,  vmi  n ,  vnax  ) 

5.  2.  2.  7 

set _vi ew_up_3 (dx_up , dy_up , dz_up ) 
svup3(dxup, dyup,dzup  :  real) 

5.2.2.  a 

set_ndc_space_3 (width, hei ght, depth) 
sndcs3( width, height, depth  :  real) 

5. 2. 2. 9 

set_vi ewport_3 (xmin, xnax , ymin, ynax , zmin,zmax ) 
svprt3 (xnin, xmax , ynin, ymax , ztnin, zmax  :  real) 

5.2.2.  10 

set _vi ewi ng_par ameter s ( vi ewi ng_parameter_array) 

5.2.2.11  inquiry  -for  individual  viewing  operation 
parameters 

i  nqui  re_vi  ew_r  e-f  er ence_poi  nt  ( x  _r e-f ,  y_r ef  ,  z  _r  ef ) 
ivr-fpt(var  xref , yre-f , zre-f  :  real) 
inquire_view_plane_normal (dx_norm,dy_norm,dz_norm) 
ivpnor (var  dxnorm, dynorn, dznorm  :  real) 
i n  qui r e_ vi ew_p 1 ane_d istance(vi ew_d i stance ) 
ivpdis (var  dist  :  real) 

i nqui re_vi ew_depth (f ornt_di stance, back_di stance) 
ivdpth(var  -front, back  :  real) 
inquire_projection (projection_type,sx_proj , dy_proj , 

dz_proj ) 

i pro j (var  projtype  :  integer;  dxproj , dyproj , 
dzproj  :  real ) 

i  nqui  re_vi  ew_up_3  ( sx__up ,  dy_up ,  dz_up ) 
ivup3(var  dxup, dyup, dzup  :  real) 
i nqui re_ndc_space_3 ( wi dth , hei ght , depth ) 
indcs3(var  width, height, depth  :  real) 
i nqui re_vi ewport _3 (xmin, xmax , ymi n , ymax , zmi n , zmax ) 
ivprt3(var  xmin, xmax , ymin, ymax , zmin, zmax  :  real) 

5.2.2. 12 

i nqui re_vi ewi ng_par ameter s ( vi ewi ng_par ameter _arr ay ) 

5.2.2.13 

map_ndc_to_wor 1 d_3 (ndc_x , ndc_y , ndc_z , x , y , z ) 

5.2.2. 14 

map_wor 1 d_to_ndc_3 (x , y , z , ndc_x , ndc_y , ndc_z ) 

5.2.3  viewing  control 

5.2.3. 1 

set_window_cl  ipping  (on_o-f  f  ) 
sclipw(clip  :  boolean) 

5. 2. 3. 2  depth  clippint 
set_front_plane_cl ipping (on_off ) 

sclpfp(clip  :  boolean) 
set _back_plane_cl ipping (on_of f ) 
sclpbp(clip  :  boolean) 

5.2. 3. 3 

set_coordinate_system_type (type) 
scortp (handedness  :  integer) 

5.2. 3. 4 


inquire_viewing_control_parameters (window_cl ipping, 
f ront_cl ipping, back_cl ipping, type) 
ivcpar  (var  cl ipw, cl ipf , cl ipb  :  boolean; 
var  hand  :  integer) 

5.2.4  Morld  coordinate  transformations 

5.2.4. 1 

*  set_world_coordinate_matrix_2 (matrix_2) 

*  set_world_coordinate_matr ix_3  (matrix_3) 

5. 2. 4. 2 

*  inquire_wor ld_coordinate_matrix_2(matrix_2) 

*  inquire_wor ld_coordi nate_matrix_3 (matrix _3) 

5.2.5  default  values 

5.2.6  viewing  specification  validity 

6  input  primitives 

6.1  overview 

6.2  functional  capabilities 

6.2.1  logical  input  facilities 

6.2. 1. 1  pick 

6.2. 1.2  keyboard 

6.2. 1.3  button 

6.2. 1.4  stroke 

6.2. 1.5  locator 

6.2. 1.6  valuator 

6.2.2  minimum  set  of  input  devices 

6.2.3  input  device  identification 

6.2.4  initializing  and  enabling  input  devices 

6.2.4. 1 

initial i ze_devi ce (devi ce_cl ass, devi ce_num) 
ini tde(iclass  :  nametype;  inum  :  integer) 

6. 2. 4. 2 

initiali z eg roup (devi ce.class, devi ce_num_array , n ) 
initgr (iclass  :  nametype;  devarray  Z  iarray; 
n  :  integer) 

6. 2. 4. 3 

*  enable_device (device  class,device_num) 

6. 2.4. 4 

*  enable_group (cevi ce_c lass, devi ce_num_arr ay , n ) 

6. 2.4. 5 

*  di sab 1 e_devi ce ( devi ce_c 1  ass , devi ce_num ) 

6. 2. 4. 6 

*  disable_group (device_class,device_num_array,n) 

6. 2. 4. 7 

*  disable_all () 

6. 2. 4. 8 

ter mi nate_devi ce ( devi ce_c 1  ass , devi ce_num ) 
termde( iclass  :  nametype;  inum  :  integer) 

6. 2. 4. 9 

t ermi nat e_gr oup (devi ce_c 1  ass , devi ce_num_arr ay ,  n ) 
termgr (iclass  :  nametype;  devarray  :  iarray; 
n  :  integer) 

6.2.5  reading  sampled  devices 
6.2.5. 1 

read_l ocator_2 ( 1 ocator _num, x , y ) 
read_locator_3 ( 1 ocator _num, x , y , z ) 


* 
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read_ val uat or <  val uat or _num , val ue ) 

6.2.6  event  handling 

6. 2. 6.1 

awai t_event (time, even t_c lass, event _nu») 

6. 2. 6. 2 

f  1  ush  _de  vi  c  e_even  t  s  ( e  ven  t  _c  lass,  even  t  _num ) 

6. 2. 6. 3 
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f 1 ash  _group _e ven t s  <  even  t  _c 1 ass , e ven t _num_ar r  ay , n ) 
.2.6.4 

f 1 ush_al 1 _event s  < ) 

.7  associating  devices 
.2.7. 1 

associate  <event_class, even t_n urn, sampled_class, 
samp 1 ed_num  > 

,2.7.2 

d i sassoc i a t e ( event  _c 1 ass , e ven t _num , samp 1 ed  _c 1 ass , 
samplednua) 

,2.7.3 

di sassoc i at e_devi ce (devi ce_class , devi ce_num) 

.2.7.4 

d i sassoc i at e_gr  oup ( de v i ce_c 1 ass , devi ce_num_ar ray , n ) 
,2.7.5 

di sassoc i at e_al 1 < ) 

,8  accessing  event  report  data 

.2.8.1 

get_pick_data (segment  name,pick_id> 

,2.8.2 

get_keyboard_data ( input  string, num  input) 

,2.8.3 


get_stroke_data_2(array_size,x_array,y_array, 

num_posi t i ons ) 

get_stroke_data_3 (array_size, x_array, y_array , z_array, 
num_posi t i ons ) 

6. 2. 8. 4 

get_locator_data_2 ( 1 ocatornum, x , y ) 
get_locator _data_3 ( locator _num, x , y , z ) 

6. 2.8.5 

get _val uator _dat a ( val uat or _num, val ue) 

6.2.9  synchronous  input  functions 
6.2.9.  1 

awai t_any_button (time, but ton_num) 
awaitbut (var  butnum  :  integer) 

6. 2. 9. 2 

awai tpick (time,pick_num, segmentname, picki d ) 

awaitpick (picnum  :  integer}  var  segnamel  :  name type 
var  pickid  :  integer) 

6. 2. 9. 3 


awai t_keyboard (time, keyboard_num, input_string, length) 
awai t key (keynum  :  integer}  var  string  :  char line} 
var  length  :  integer) 

6. 2. 9. 4 

awai t_stroke_2 (time, stroke_num, array_size, x_array, 
y_array,  num_posi tions) 
awai tstr2 (strokenum  :  integer}  arr aysiz  : 


integer} 


var  xarray , yarray  :  rarrayS 
var  numpos  :  integer) 

await _stroke_3 (time, stroke_nun, array_size,x_array, 
y .array,  zarray, num_posi tions) 
awai tstr3 (strokenum  :  integer;  arraysiz  :  integer; 
var  xarray,  yarray,zarray  :  rarray; 
var  numpos  :  integer) 

.2.9.5 

await_any_button_get_locator_2 (time, 1 ocitornum, 
buttonnum, x , y ) 

pol loc2(locnum  :  integer;  var  butnum  :  integer; 
var  lx,ly  :  real) 

awai t_any_but ton_get_l oca tor _3 ( t i me, 1 oca tor _num, 
buttonnum,  x,y,z) 

pol loc3 (1 ocnum  :  integer;  var  butnum  :  integer; 
var  lx,  ly,lz  :  real) 

.2.9.6 

awai t_any_button_get _val uator (time, val uator _num, 
buttonnum, val ue) 

polval (valnum  :  integer;  var  butnum  :  integer; 
var  rvalue  :  real) 

.10  device  echoing 
.2.10.1 

set_echo (devi ce_cl ass, devi ce.num, echo_type) 
setechod (iclass  :  nametype;  inum  :  integer; 
echo  :  i nteger ) 

.2. 10.2 

set.echo.group (device.cl ass, devi ce_num_ar ray , n, 
echo_type) 

setechog (iclass  :  nametype;  devarray  :  iarr  •ys 
n,echo  :  integer) 

.2. 10.3 

set.echo.segment (devi ce.c 1 ass, devi ce_num, segment.name) 
.2. 10.4 

set _echo_sur face (device_cl ass, devi ce.num, surf aca_name) 
.2. 10.5 

set.echo.posi t i on (devi ce_cl ass, devi ce_num, echox , echo_y ) 
.11  setting  input  device  characteristics 
.2. 11. 1 

set_pick (pick_num, aperture) 

setpic (picnum  :  integer;  picapr  :  aperature) 

.2.11.2 

set_keyboard  <keyboard_num,buf f er_size, initial .string, 
c ur sor _s t ar t ) 

setkey (keynum  :  integer;  bufsiz  :  integer;  initstrg  : 
char line)  startpos  :  integer) 

,2. 11.3 

set .button ( but ton.num , pr omp t  _swi tch ) 
set but (butnum, prompt  :  integer) 

.2.11.4 

set _al 1 .buttons (prompt _swi tch ) 
set al 1 but (prompt  :  integer) 

.2. 11.5 

set.stroke (stroke.num, buffer. si ze, di stance, ti me) 
set stroke (strokenum  :  integer;  bufsiz  :  integer; 
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dist,time  :  real) 

6.2.11.6 

set _ 1 oc a t or _2 ( loc at or _num, locx , loc_y ) 

setloc2<locnue  :  integerl  locx, locy  :  real) 
set_locator_3(l ocator _num, 1  oc_x , loc_y, loc_z ) 

set loc 3 (locnun  :  integer!  locx , locy , locz  :  real) 

6.2.11.7 

set_locport_2 ( 1 ocator _num,xmin, xmax , ymin,ymax ) 

setlocp2(locnue  :  integer!  xmin, xmax , yein, ymax  :  real) 
set_locport_3  ( 1 ocator _num, xmin, xmax  ,  ymin , ymax  , zni n , zmx  ) 
set locp3( locnun  :  integer!  xmin, xmax, ymin, ymax, 
zinin, z max  :  real) 

6.2.11.8 

set_valuator ( valuator _num, ini tial_value, low_value, 
high_value) 

setval (valnum  :  integer;  initval , lowval , 
highval  :  real) 

6.2. 12  inquiry 
6-2. 12. 1 

inquireinputcapabi 1 i ties (level ,device_counts, timing) 
inqicap (var  level  :  integer;  var  devcnts  :  array6) 

6.2.  12.2 

i nqui re_i nput _devi ce_char acter i st i cs (devi ce_cl ass, 
devi cenum ,  i mnp 1 emen t  at ion, echo, vi ex_sur face, 
association_size,  assoc i ation_class, 
assoc i at ion_num,  assoc i at i on_count , 
dupl ication_size,  dupl ication_clacs, 

dupl ication_num,  dupl i cat ion_count, precision, del ay) 

6.2.12.3  inquire  dimension 

i nqui r e_str oke_d i mensi on ( stroke_num, d i men si on ) 

inqstrdi (strokenum  :  integer!  var  dimens  :  integer) 
i nqui re_l ocator _di mensi on ( 1 ocator _num, d i mansion ) 
inqlocdi (locnun  :  integer;  var  dimens  :  integer) 

6.2. 12.4 

i n  qui r  e_dev i ce_st at us (devi ce_c 1 ass , devi ce_num , 
initialized,  enabled) 

inqdevstat (iclass  :  nametype;  inum  :  integer;  var 
ini ted  :  boolean) 

6.2. 12.5 

i nqui re_devi ce_associ at i ons (event_cl ass, event _n urn, 
array_size,  samp led_class_ar ray, 
samp 1 ed_num_ar r ay ,  number _of _assoc i at i ons ) 

6.2.12.6  inquire  input  status  parameters 

i nqui r e_echo ( devi ce_c 1 ass, devi ce_num, echo_t ype ) 
inqecho (iclass  :  nametype;  inum  :  integer; 
var  echo  :  integer) 

inqui re_echo_surf ace (devi ce_c 1 ass, devi ce_num, 
surf ace_name) 

inqui r e_echo_posi t i on ( devi ce_c 1  ass , devi ce_num, 
echo_x , echo_y ) 

inquire_pick (pick_num, aperture) 

inqpic (picnum  :  integer;  var  picapr  :  aperature) 
inqui re_keyboard (key boar d_num, buf f er_si ze, 
initial_string,  cursor_start ) 
inqkey (keynum  :  integer;  var  buf si z  :  integer; 
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initstrg  :  charline;  v*r  startpos  :  integer) 
i nqui re_but ton (but ton_num, prompt_»»*i tch ) 

inqbut (butnun  :  integer;  var  prompt  :  integer) 
inquire_stroke(storke_num,buf f er_size, distance, time) 
inqstroke(>trokenum  :  integer;  var  bufsiz  :  integer; 
var  diet, time  :  real) 

inquire_locator_2(locator_num, loc_x , loc_y) 

inqloc2 (locnum  :  integer;  var  locx, locy  :  real) 
i nqui re_locator_3( locator _num, loc_x, loc_y, 1 oc_z ) 

inqloc3( locnum  :  integer;  var  locx , locy, locz  :  real) 
i nqui re_locport_2< locator _num, xmin, xmax , ymin, ymax ) 
inqlocp2( locnum  :  integer;  var  xmin, xmax , ymin, 
ymax  :  real ) 

i nqui re_l ocpor t _3 ( 1 ocator _num , xmin, xmax , ymi n , ymax , 
zmin, zmax ) 

inqlocp3 (locnum  :  integer;  var  xmin, xmax , ymin, ymax , 
zmin, zmax  :  real) 

inquire_valuator (valuator_num, initialvalue, 1 owval ue, 
high_value) 

inqval (valnum  :  integer;  var  initval , 1 owval , 
highval  :  real) 

6.2.12.7 

*  i  nqui  re_echo_segments  (devi  ce_cl  ass,  devi  cerium, 

array_Bize,  echo_segment _ar ray, number _echo_segments ) 

************************************************************ 

7  control 

7.1  over vi ew 

7.1.1  initialization  and  termination 

7.1.2  view  surface  control 

7.1.3  picture  change  control 

7.1.4  -frame  control 

7.1.5  error  handling 

7.2  functional  capabilities 

7.2.1  initialization  and  termination 

7.2. 1. 1 

initial ize_core (out level , inlevel , dimension, 
hidden surf ace) 
initcoreO 

7.2. 1.2 

termi nate_core ( ) 
ter  me  ore  ( ) 

7.2.2  view  surface  initialization  and  selection 

7.2.2. 1 

ini tial ize_view_surf ace (surf ace_name, type, mode) 
ini tvs (devices  :  integer) 

7.2. 2. 2 

termi nate_view_surf ace (surf ace_name) 
termvs ( ) 

7. 2. 2. 3 

*  inquire_output_capabi 1 i ties (surf ace_name, levels, 

physical , sizes, prim_attr , seg_attr, batching) 

7. 2.2. 4 

select  view  surf ace (surface  name) 


* 
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7. 2. 2. 5 

*  desel ect_vi ew_surf ace (surf ace_naate) 

7. 2. 2. 6 

*  i  nqui  rs_sel  ected_sur-f  aces  (array _si  ze,  vi  ew_sur f  acB_names 

number _of _sur f aces ) 

7.2.3  picture  change  control 

7. 2. 3.1  immediate  visibility  control 

7. 2. 3. 2 

set _i mmedi ate_vi si bi 1 i t y ( i mmed i acy ) 
si  mated  <  vis  :  boolean) 

7. 2. 3. 3 

*  make_picture_current ( > 

7. 2. 3.  4 

*  batching  of  updates 

7. 2. 3. 5 

*  begi n_batch_of _updates ( ) 

7. 2.3. 6 

*  end_batch_of  updates ( ) 

7. 2. 3. 7 

i nqui re_contr ol _st atus ( ) 

i const (var  vis, batch  :  boolean) 

7. 2. 3. 8 

*  set_visibi  1  i  ties  ( segment  _naate_ar  ray,  visibi  1  i  ty_array,  n) 

7.2.4  fraate  control 

7.2.4. 1 
new_  fraate ( ) 

nettfraaeO 

7.2.5  error  handling 

7.2.5. 1 

*  repoctmost  recent  error  (error _report) 

7.2.5. 2 

*  1 ogerror (error _rep or t ) 

7.2.6  color  otodel s 
7.2.6.  1 

*  set  color_flKxiel  (aiodel ) 

7.2.6. 2 

*  i  nqui  re_col  or _atodel  (model ) 

7.2.7  auxiliary  aMode 

7.2.7. 1 

set_background_index (index ) 
sbgndx (index  :  integer) 

7.2. 7.2 

inquire_background_index (index) 
ibgndx(var  index  :  integer) 

7. 2.7. 3 

*  set  display_arade(atode) 

7. 2.7. 4 

*  i nqui re_display_mode (mode) 

7.2.8  pixel  array  functions 
7.^8. 1 

*  s»t_pixel  array (index  array, columns, rows) 

7. 2.8. 2 

*  inquire_pixel_array  (col uatns, rows,  index_array, 

n  col  uatns,  n_rows) 

7. 2.8.3 


f. 
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* 


* 


# 


* 


set_pixel_pattern_origin_2(x_abs, y_abs) 

7. 2.  B. 4 

inquirepixel _pattern_origin_2(x_abs,y_abs) 

7.2.9  index  table  functions 

7.2.9. 1 

def  ine_color_index  (surface_nane,  i  , cl, c2,c3) 
dclndx<i  :  integer;  cl,c2,c3  :  real) 

7. 2. 9.2 

de-f  ine_intensi  ty_index  (surf  ace_nane,  i  ,  intensity) 

7.  2.  9.  3 

inquire_color_index ( surf  acename , i ,cl,c2,c3) 
iclndx(i  :  integer;  var  cl,c2,c3  :  real) 

7. 2. 9. 4 

i nqui r e_i ntensi ty_i ndex (surf ace_name, i , intensity) 

7.  2.  9.  5 

def ine_color_indices (surface_nane, i 1 , i 2, cl_array , 
c2_array,c3_array) 

dclndc (i 1 , i2  :  integer;  c larray , c2array , c3array 
:  ndxarray) 

7. 2. 9. 6 

def ine_i ntensi ty_indi ces (surf ace_name, i 1, i2, i_array) 

7. 2. 9. 7 

inquire_color_indices (surf ace_name, i 1, i2,cl_array, 
c 2_ar r ay , c 3_ar r ay ) 

iclndc (i 1 , i2  :  integer;  var  clarray,c2array, 
c3array  :  ndxarray) 

7. 2. 9. 8 

i nqui re_i ntensi  ty_indi ces (surf  ace_nam,  i  1, i2, i_array) 

7.2.10  index  tables  -  standard  assignment 

7.2.10.1 

def inc_standard_color_indices (surf ace_name, 1 1 , 12, 13, 
lowl, 1om2, low3,highl,high2,high3) 
dstdcl (1 1 , 12, 13  :  integer;  lowl , low2, low3, 
highl,high2,high3  ;  real) 

7.2. 10.2 

def i ne_standard_i ntensi ty_indi ces (surf ace_name, 1 , 
low, high) 

7.2.  10.3 

i nqui re_standard_color_indi ces (surf ace_name, 11,12,13, 
lowl , low2, low3,highl ,high2,high3) 
ist del (var  11,12,13  :  integer;  var  lowl,low2, 
low3,highl,high2,high3  :  real) 

7.2. 10.4 

i nqui r e_standard_i ntensi ty_i ndi ces ( sur f acename, 

1 , low, high) 


8  special  interfaces  between  the  core  system 
and  the  application  program 

8.1  overview 

8.2  functional  capabilities 

8.2.1  general  escape  functions 

8.2. 1. 1 

escape (functi on _name, parameter _count , parameter _1 ist) 
escape (rnum  :  integer) 

8.2. 1.2 


*  inqui  reescape  (-functionname,  suppoeri  ndicator  ) 

8.2.2  specific  escape  -functions 

8.2.2. 1 

*  escape (prompt, 4, par ameter_l ist ) 

9  philosophy  of  interfacing  the  core  system  with  its 
envi r on men t 

9. 1  overview 

9.2  impact  areas 

9.2.1  operating  systems 

9.2. 1.1  core  system  invocation 

9.2. 1.2  unescorted  text 

9.2.2  programming  languages 

**«**********#***#-»*#*#********************#************ 
2.  table  of  contents  of  user  level  procedures 


awai tbut 

6.2.9. 1 

await key 

6. 2. 9. 3 

awai tpick 

6. 2. 9. 2 

awai tstr2 

6. 2. 9. 4 

awai tstr3 

6. 2. 9. 4 

clrseg 

7. 2. 3. 5 

cl tseg 

3. 2. 2. 2 

err seg 

3.2.  1.1 

ertseg 

3.2.2. 1 

dclndc 

7.  2.  9.  5 

dclndx 

7.2.9.  1 

del all 

3.2.  1.4 

derseg 

3.2. 1.3 

dstdcl 

7.2. lO. 1 

escape 

8.2. 1. 1 

ibgndx 

7. 2. 7. 2 

iclndc 

7. 2. 9. 7 

iclndx 

7. 2. 9.3 

i const 

7. 2. 3. 7 

idtect 

4. 2. 2. 2 

if lndx 

4.2. 1.3 

ihi 1 i t 

4. 2. 2. 2 

iitn2 

4. 2. 2. 2 

iitr2 

4. 2. 2. 2 

i  itr3 

4. 2. 2. 2 

i  lndx 

4.2. 1.3 

ilstyl 

4.2. 1.3 

i  lwid 

4.2. 1.3 

imksym 

4.2.  1.3 

indcs2 

5.2.  1.5 

indcs3 

5.2.2.11 

ini tcore 

7.2.  1.  1 

ini tde 

6.2.4. 1 

ini tgr 

6. 2. 4. 2 

ini tvs 

7.2.2. 1 

inqbut 

6.2. 12.6 

inqscho 

6.2.  12.6 

inqicap 

6.2. 12. 1 

inqksy 

6.2. 12.6 

inqloc2 

6.2. 12.6 

inqloc3 

6.2. 12.6 

inql ocdi 

6.2.  12.3 

inqlocp2 

6.2.  12.6 

inqlocp3 

6.2. 12.6 

inqpic 

6.2. 12.6 

inqstrdi 

6.2. 12.3 

inqstroke 

6.2. 12.6 

inqval 

6.2. 12.6 

ioseg 

3.2.  1.8 

i  ot  ssg 

3. 2. 2. 3 

ipsn 

4.2. 1.3 

i  pest y 


irsnaa 

3.2. 1.7 

isdst 

4. 2. 2. 4 

iahi lit 

4. 2. 2. 4 

isitr»2 

4. 2.2.4 

isitr2 

4. 2.2.4 

isi tr3 

4. 2.2.4 

istdcl 

7.2.10.3 

i sttyp 

4.2. 1.7 

isvis 

4. 2.2. 4 

i trtyp 

4.2.  1.6 

i vcpar 

5. 2. 3. 4 

i vdpth 

5.2.2.11 

i  visib 

4. 2. 2. 2 

i vpdis 

5.2.2.11 

i vpnor 

5.2.2.11 

i vprt2 

5.2. 1.5 

i vprt3 

5.2.2.11 

i vrf pt 

5.2.2.  11 

i Mi ndo 

5.2. 1.5 

1  ina2 

2.2.2.  1 

1  ina3 

2.2.2. 1 

1  inr2 

2.2.2. 1 

1  inr3 

2.2.2.  1 

mar ka2 

2.2.4. 1 

marka3 

2.2.4. 1 

markr2 

2.2.4. 1 

«arkr3 

2.2.4. 1 

mova2 

2.2. 1. 1 

mova3 

2.2. 1. 1 

movr2 

2.2. 1. 1 

movr3 

2.2.  1.1 

ndcMcs2 

5.2. 1.6 

nawfram 

7.2.4.  1 

pi ina2 

pi ina3 

plinr2 

pi inr3 

p«rka2 

pmrka3 

pmrkr2 

pmrkr3 

pol loc2 

pol loc3 

pol val 

pol ya2 

pol ya3 

pol yr2 

polyr3 

renseg 

sbgndx 

scl ipw 

sclpbp 

sclpfp 

scortp 

sdtect 

setal lbut 

setbut 

setechod 

setechog 

set key 

setloc2 

setloc3 

setlocp2 

setlocp3 

setpic 

setstroke 

setval 

sf lndx 

shi lit 

si meed 

si  tn2 

sitr2 

si  tr3 

slndx 

slstyl 

si  wid 

sfliksym 

sndcs2 

sndcs3 

spen 

spesty 

spid 

sproj 

ssdet 

sshi 1 t 

ssi tn2 

ssi tr2 

ssi tr3 


2.2. 

2.2. 

2.2. 

2.2. 

2.2. 

2.2. 

2.2. 

2.2. 

6.2. 

6.2. 

6.2. 

2.2. 

2.2. 

2.2. 

2.2. 

3.2. 

7.2. 

5.2. 

5.2. 

5.2. 

5.2. 

4.2. 

6.2. 

6.2. 

6.2. 

6.2. 

6.2. 

6.2. 

6.2. 

6.2. 

6.2. 

6.2. 

6.2. 

6.2. 

4.2. 

4.2. 

7.2. 

4.2. 

4.2. 

4.2. 

4.2. 

4.2. 

4.2. 

4.2. 

5.2. 

5.2. 

4.2. 

4.2. 

4.2. 

5.2. 

4.2. 

4.2. 

4.2. 

4.2. 

4.2. 


2.2 

2.2 

2.2 

2.2 

4.2 

4.2 

4.2 

4.2 
9.5 

9.5 

9.6 
5 

5 

5 

5 

I. 5 
7.  1 
3.  1 

3.2 

3.2 

3.3 

2.  1 

II. 4 

11.3 
lO.  1 
10.2 
11.2 

11.6 
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11.7 

11.7 
11.1 
11.5 
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ssvis  4. 2. 2. 3 

strtyp  4.2. 1.5 

svdpth  5. 2. 2. 4 

svisib  4.2.2. 1 

svpdis  5. 2. 2. 3 

svpnor  5. 2. 2. 2 

svprt2  5.2. 1.4 

svprt3  5. 2. 2. 9 

svrf pt  5.2.2. 1 

svup2  5.2. 1.2 

svup3  5. 2. 2. 7 

swindo  5. 2. 2. 6 

terncare  7.2. 1.2 

ter mde  6. 2. 4. 8 

ter mgr  6. 2. 4. 9 

term  vs  7.  2.  2.  2 

text  2.2.3.  1 

wcsndc2  5.2. 1.7 

*************************************************************** 
3.  application  program  example 

a  sample  program  is  created  here  to  demonstrate  how  to  use 
the  pascal  core  package.  the  test  program  will  draw  a  diagonal 
line  -from  the  lower  le-ft  corner  to  the  upper  right  corner  of  the 
tk4014  or  the  hp7220a. 

1.  -first  copy  "header,  i”  file  to  the  pascal  file  you  will  use 
to  create  your  program. 

ex  >cp  header. i  batch2.p 

then  type  your  program  name  after  the  comments  in  the 
header. i  file.  also  add  the  necessary  variables  to  the 
'const',  ’var',  and  'type'  locations. 

start  your  program  after  the  end  of  the  header. i  file 
<*************************************************************** 


*  * 

*  date:  12  oct  83  ♦ 

*  version:  1.0  * 

*  name:  header  * 

*  description:  a  header  file  that  includes  all  the  necessary  * 

*  variables  and  procedure  parameters  needed  to  * 

*  build  a  core  application  program  * 

*  operating  system:  UNIX  * 

*  language:  pascal  * 

*  inputs:  n/a  * 

*  outputs:  n/a  * 

*  global  variables  used:  defconst.h,  deftype.h,  extvar.h,  * 

*  error. h,  driverext.h,  ddutilext.h,  ctlOext.h,  * 

*  ctllext.h,  utilext.h,  util2ext.h,  common. h,  * 

*  userext.h  * 

*  global  variables  changed:  n/a  * 


*  global  tables  used:  n/a  * 

*  library  routines:  n/a  * 

*  -files  read:  n/a  * 

*  -files  written:  n/a  * 

*  modules  called:  n/a  * 

*  calling  modules:  n/a  * 

*  author:  Capt  John  W.  Taylor  * 

*  * 

***************************************************************) 
C ******************************************-********************) 
(*  *) 

<*  this  -file  is  to  be  included  at  the  beginning  o-f  every  *) 

(*  main  core  pascal  program.  *) 

(*  this  file  should  be  the  first  text  entered  into  the  main  *) 
(*  program  that  is  being  built,  ex.  *) 

(*  >cp  header. i  filename.p  *) 

(*  this  will  create  the  necessary  include  files  needed  to  *) 

(#  run  the  pascal  core  system.  the  remaining  code  is  now  *) 

(*  added  on.  *) 

(*  *) 

( *******************************•*******************************) 

(*  program  name  starts  here  *) 

(*  ex.  *) 

(*  program  test (input, output ) ;  *) 

program  batch2 (input , output) $  (*  program  name  added  here  *) 


const  (*  global  constants  used  by  the  core  system  #) 

•include  * def const. h' 

type  (*  global  types  used  by  the  core  system  *) 

•include  ’deftype.h’ 

var  (t  global  variables  used  by  the  core  system  #) 

•include  ’extvar.h’ 

devices  :  integer?  (♦  devices  is  the  only  variable  added  *) 

<*  include  files  with  the  procedure  declarations  called  by 
the  main  pascal  program  *) 

•include  ’ error. h' 

•include  ’  dri verext.h” 

•include  ’dduti lext .h' 

•include  'ctlOext.h* 

•include  ’ctllext.h’ 

•include  ' util2ext.h’ 

•include  'utilext.h' 

•include  ' common. h ’ 

•include  ’userext.h* 


(*  this  is  about  the  simplest  core  program  you  can  write.  it 
simply  does  what  is  necessary  to  draw  a  diagonal  line  on  the 
screen.  *) 


E— 20 


writeln; 

writeln (’device  1  =  tk4014’ ) ; 
writeln ( ’device  2  =  hp7220a’ ) ; 
writeln; 

writeln!’  device  =’  )  ; 
readln (devices) $ 

initcorej  (*  initialize  core  *) 

<*  the  system  *must*  be  initialized  before  anything  else 
can  be  done.  therefore  initcore  must  be  the  first  core 
routine  called  *> 

ini tvs (devices) ;  (*  select  either  the  tk4014  or  hp7220a  *) 

if  (devices  =  2)  then 
begin 

spen ( 1 ) ; 
end; 

crtseg;  (*  create  temporary  segment  *) 

(*  if  anything  is  to  be  drawn,  it  must  be  a  primitive 
within  a  segment.  to  keep  things  simple  here,  we  are 
creating  a  temporary  segment  to  put  our  line  primitive 
in.  *) 

lina2(l,l);  (*  line  absolute  2  *) 

(*  draw  a  line  from  the  current  operating  point  ((0,0)  as 
initialized)  to  the  absolute  point  (1,1).  since  the 
default  window  is  0—1  in  the  x  and  y  directions,  this 
will  draw  a  diagonal  line  across  the  screen.  *) 
termvs;  (*  take  tk4014  or  hp7220a  off-line  *) 
termcore;  (*  terminate  core  *) 

(*  this  routine  will  close  the  temporary  segment  and 
terminate  the  core  system.  *) 

end. 


2.  now  compile  the  program  to  run: 

ex  :  >pc  -w  batch2.p  libl  <cr> 

-w  :  suppresses  any  warning  messages 

libl  :  library  containing  the  object  code  for 
all  the  core  routines 

3.  to  run  the  program  use  either  a  vlOO  terminal  connected  to 
a  hp7220a  or  a  visual  550  terminal  in  the  tk4014 
emulation  mode. 

ex  :  >a .  out 

S**********#*****************#*********************#*"******* 

4.  a  program  called  intcore.run  is  available  to  demonstrate 
how  the  core  system  graphics  works.  it  is  menu  driven 
which  allows  a  user  to  demonstrate  many  aspects  of  the 


core  system  on  a  computer. 


the  program  is  self  explanatory.  to  execute  the  program 
type  the  following  run  file  : 

>intcore.run 


here  is  a  list  of  the  menu  screens  that  appear  in  this 
program  : 

****  main  menu  of  interactive  core  routines  **** 

O  —  this  menu 

2  —  output  primitives 

3  -  picture  segmentation  and  naming 

4  —  primitive  &  segment  attributes 

5  -  viewing  operations  and  coordinate  transformations 

6  —  input  primitives 

7  -  control 

8  —  special  interfaces 

9  —  miscellaneous  routines 


***** 

output  primitives 

routines  menu 

***** 

2 

— 

this  menu 

200 

- 

mova2 

201 

- 

mova3 

202 

—  movr2 

203 

- 

movr3 

204 

- 

ipsn2 

205 

-  ipsn3 

206 

— 

1  ina2 

207 

- 

1  ina3 

208 

-  Iinr2 

209 

— 

1  inr3 

210 

- 

marka2 

211 

—  marka3 

212 

- 

markr2 

213 

- 

markr3 

214 

-  plina2 

215 

- 

pi ina3 

216 

- 

pi inr2 

217 

-  plinr3 

218 

— 

pal ya2 

219 

- 

pol ya3 

220 

-  polyr2 

221 

— 

polyr3 

222 

— 

pmrka2 

223 

—  pmrka3 

224 

— 

pmrkr2 

225 

— 

pmrkr3 

226 

—  text 

227 

— 

setmargin 

228 

— 

newl i ne 

*****  picture  segmentation  Sc  naming 

routines 

menu  ***** 

3  —  this  menu 

300  —  crrseg 

301  —  clrseg 

302 

-  derseg 

303  -  del all 

304  -  renseg 

305 

-  irsnam 

306  —  ioseg 

309  —  iotseg 

307  -  crtseg 

308 

-  cltseg 

***** 

4  - 

primitive  Sc 
this  menu 

segment 

attributes 

routines  menu  ***** 

400 

- 

slndx 

401 

- 

slstyl 

402  -  slwid 

403 

— 

spen 

404 

- 

smksym 

405  -  spesty 

406 

— 

spid 

407 

— 

i  lndx 

408  -  ilstyl 

409 

— 

i  lwid 

410 

- 

ipen 

411  —  imksym 

412 

— 

ipesty 

413 

— 

ipid 

414  -  strtyp 

415 

— 

svisib 

416 

— 

shi lit 

417  -  sdtect 

418 

- 

sitn2 

419 

- 

sitr2 

420  -  si tr3 

421 

- 

i trtyp 

422 

- 

i visib 

423  -  ihilit 

424  - 

idtect 

425 

-  iitn2 

426  - 

i  itr2 

427  - 

i  i  tr3 

428 

-  ssvis 

429  - 

sshi 1 t 

430  - 

ssdet 

431 

-  ssitn2 

432  - 

ssi tr2 

433  - 

ssi tr3 

434 

-  isvis 

435  - 

ishilit 

436  - 

isdet 

437 

-  isitn2 

438  - 

isitr2 

439  - 
442  - 

isitr3 
i-f  lndx 

440 

-  isttyp 

441  - 

s-f  lndx 

*****  viewing  operations  and  coordinate  transformation  routines 
menu  ***** 


5 

- 

thi s  menu 

500 

- 

swindo 

501 

- 

svup2 

502 

— 

sndcs2 

503 

- 

svprt2 

504 

- 

i windo 

505 

- 

i  vup2 

506 

- 

i ndcs2 

507 

- 

i vprt2 

508 

- 

svrf pt 

509 

— 

svpnor 

510 

— 

svpdis 

511 

— 

svdpth 

512 

— 

sproj 

513 

- 

svup3 

514 

— 

sndcs3 

515 

— 

svprt3 

516 

- 

i  vr-fpt 

517 

— 

i vpnor 

518 

— 

i vpdis 

519 

— 

i vdpth 

520 

— 

iproj 

521 

— 

i  vup3 

522 

— 

indcs3 

523 

— 

i vprt3 

524 

- 

scl ipw 

525 

- 

sclpfp 

526 

- 

sc 1 pbp 

527 

— 

scortp 

528 

- 

i vcpar 

529 

— 

ndcwcs2 

530 

wcsndc2 

***** 

input  routines  menu 

***** 

6 

- 

this  menu 

601 

- 

ini tde 

602 

- 

initgr 

603 

- 

termde 

604 

— 

ter mgr 

605 

— 

awai tbut 

606 

— 

awai tpick 

607 

— 

await key 

608 

- 

awai tstr2 

609 

- 

awai tstr3 

610 

- 

pol loc2 

611 

- 

pol loc3 

612 

- 

pol val 

613 

— 

set ec hod 

614 

- 

set ec hog 

615 

— 

setpic 

616 

- 

set key 

617 

- 

setbut 

618 

- 

setal 1 but 

619 

— 

setstroke 

620 

- 

setloc2 

621 

- 

setloc3 

622 

- 

setlocp2 

623 

- 

setlocp3 

624 

- 

setval 

625 

— 

inqicap 

626 

- 

inqstrdi 

627 

- 

inqlocdi 

628 

— 

inqdevstat 

629 

— 

inqecho 

630 

— 

inqpic 

631 

— 

inqkey 

632 

- 

inqbut 

633 

— 

inqstroke 

634 

— 

inqloc2 

635 

— 

inqloc3 

636 

— 

inqlocp2 

637 

- 

inqlocp3 

638 

— 

inqval 

*****  control  routines  menu  ***** 


7 

700 

—  this  menu 

—  initcore 

701 

-  new-frame 

702 

-  termcore 

720 

-  sbgndx 

721 

—  ibgndx 

730 

—  dclndx 

/31 

—  iclndx 

732 

-  dclndc 

733 

-  i c 1 ndc 

734 

-  dstdcl 

735 

—  istdcl 

736 

-  simmed 

737 

-  i const 

740 

-  initvs 

741 

—  termvs 

*****  special  inter-faces  menu  ***** 

8  —  this  menu 

801  —  test  pgm  -for  viewing  pipeline 

802  —  print  the  contents  o-f  the  display  -file 


803  -  print  contents  o-f  one  segment 

********  miscellaneous  routines  menu  ********* 
9  -  this  menu 


903  -  1 i nei ndex 

904 

-  xcoor 

905 

-  ycoor 

906  —  zcoor 

907 

—  coorcnt 

909 

-  prims 

912  -  text index 

921 

-  chars 

924 

-  -f  i  1 1  i  ndex 

926  —  symbol 

927 

—  segname 

929 

-  highlighted 

931  -  imagetrans 

935 

—  bgdndx 

944 

—  ndcspc 

998  —  snapshot 


Appendix  F 


Core  Routine  Cal.l.i.ng^Cal.l.ed  By  Other  Core  Routines 

**-ihhhhhhhh»******«****«**************************** 

The  routines  are  listed  in  their  include  -Files  in  the  order 
o-f  most  dependence  at  the  top,  to  the  least  dependence  at  the 
bottom 

I.  Error. h  Files 

II.  Driverext.h  Files 

III.  Ddutilext.h  Files 

IV.  CtlOext.h  Files 

V.  Ctl lext.h  Files 

VI.  liti  12ext . h  Files 

VII.  Uti lext.h  Files 

VIII.  Common. h  Files 

IX.  Userext.h  Files 

X.  Device  Drivers 

********#*****************«******«.*****•***#******* 


**************************************************** 


I .  Error . h 

error  :  prints  error  messages  to  screen 
*****  no  calls 
-  called  by  most  others 

**************************************************** 


II-  Driverext.h 


pmovab 
pdrl in 
perl in 
pinit 

perase 

pexec 

pterin 

pgetpo 

pmovre 

pvport 

psetco 

psetgr 

ptterm 

pdrpab 


:  move  to  specified  screen  coordinates 
*****  no  calls 

-  called  by  pmovre,  pi text,  pimark,  escapedd 

:  draw  a  line  between  given  points 
*****  no  calls 

-  called  by  pdrlab,  pi line,  plpgon,  ppoly 

:  erases  line  between  given  points 
*****  no  calls 

-  called  by  per 1 ab,  ppoly 

:  initilaize  display  device 
*****  no  calls 

-  called  by  initdd 

:  erases  entire  screen 
*****  no  calls 

-  called  by  newf ramedd,  escapedd 

:  sends  the  contents  of  the  command  buffer  to  display 
devi ce 

*****  no  calls 

-  called  by  plpgon,  funnel,  newframedd,  escapedd 

:  deassign  display  device 
*****  no  calls 

-  called  by  termcore 

:  return  screen  limits 
*****  no  calls 
-  not  called 

:  moves  the  current  screen  pixels  relative  to  their 
current  position 
*****  calls  pmovab 

-  not  called 

:  set  screen  limits 
*****  no  calls 

-  called  by  funnel 

:  set  background  color 
*****  no  calls 

-  called  by  concol ,  newframedd,  escapedd 

:  set  current  grey  scale 
*****  no  calls 
-  called  by  escapedd 

:  gets  a  flag  to  determine  where  output  is  to  be  directed 
*****  no  calls 
-  not  called 

:  draws  a  point  at  specified  location 
*****  no  calls 


-  called  by  pdreir,  plmark 

perpab  :  erases  a  point  at  a  specified  location 
*****  no  calls 
-  called  by  percir 

pdrlab  :  draw  a  line  froe  current  screen  position  to  newly 
specifiec  position 
*****  calls  pdrlin 
-  not  called 

per lab  :  erase  a  line  from  the  current  screen  position  to  the 
newly  specified  screen  position 
*****  calls  perl in 
-  not  called 

pdrrec  :  draws  a  rectangle  given  opposing  corners 
*****  no  calls 

-  called  by  pdrdsk,  newframedd 

perrec  :  erases  a  rectangle  given  opposing  corners 
*****  no  calls 

-  called  by  perdsk 

ppoly  :  fill  a  polygon  area  on  screen 
*****  calls  pdrlin,  perl in 

-  called  by  plpgon 

pdreir  :  draw  a  circle 

*****  calls  pdrpab 

-  called  by  escapedd 

percir  :  erase  a  circle 

*****  calls  perpab 

-  called  by  escapedd 

pdrdsk  :  fill  a  circle 

*****  calls  pdrrec 

-  called  by  esepaedd 

perdsk  :  erase  a  disk 

*****  cal 1 s  per rec 

-  called  by  escapedd 

pchar  :  print  a  string  of  characters 
*****  no  calls 

-  called  by  plower,  pltext,  plmark,  escapedd 

plower  :  convert  upper  case  characters  to  lower  case 
*****  calls  pchar 

-  called  by  escapedd 

perchr  :  erase  characters 
*****  no  calls 

-  called  by  escapedd 

peread  :  get  X,Y  cursor  position 
*****  no  calls 

-  called  by  ptrack 

pplace  :  place  cursor  at  specified  point 
*****  no  calls 
-  called  by  pputcur 

**************************************************** 

III.  Dduti lext.h 

concol  :  convert  color  index  from  01  core  system  to  graphics 
device  equivalent 


sex 


*****  calls  psetco 

-  called  by  pllinef  pltext,  plpgon,  plmark 

:  converts  ndc  X  coordinates  in  DI  core  systee  to  its 
equivalent  screen  coordinates 
*****  no  calls 

-  called  by  plline,  pltext,  plpgon,  plmark,  pputcur, 

escapedd,  txtcoor 
scy  :  converts  ndc  Y  coordinates  in  DI  core  system  to  its 
equivalent  screen  coordinates 
*****  no  calls 

-  called  by  plline,  pltext,  plpgon,  plmark,  pputcur, 

escapedd,  ddneeline,  txtcoor 
ndex  :  converts  X  screen  coordinates  to  ndc  coordinates 
*****  no  calls 

-  called  by  ptrack,  txtcoor 

ndey  :  converts  Y  screen  coordinates  to  ndc  coordinates 
*****  no  calls 

-  called  by  ptrack,  ddnewline,  txtcoor 

imgtrans  :  performs  image  transf ormations  of  coordinates  passed 
to  the  driver  from  the  DI  core  system  in  3D 
*****  no  calls 

-  called  by  plline,  pltext,  plpgon,  plmark, 

awaitpick 

makenat  :  creates  a  4X4  image  transformation  matrix  from  a 
1X9  matrix 
*****  no  calls 

-  called  by  plline,  pltext,  plpgon,  plmark, 

amaitpick 

**************************************************** 

IV.  CtlOext.h 

plline  :  DD  routine  to  display  a  line  or  polyline  on  the 
graphics  device 

*****  calls  error,  concol ,  makemat,  imgtrans,  pdrlin, 
sex ,  scy 

-  called  by  funnel 

pltext  :  DD  routine  to  display  a  text  string  on  the  graphics 
device 

*****  calls  error,  concol,  makemat,  imgtrans,  pmovab, 
sex,  scy,  pchar 
-  called  by  funnel 

plpgon  :  DD  routine  to  display  a  filled  polygon  on  the 
graphics  device 

*****  calls  error,  concol,  makemat,  imgtrans,  ppoly, 
pexec,  pdrlin,  sex,  scy 
-  called  by  funnel 

plmark  :  DD  routine  to  display  a  marker  symbol  or  polymarker 
on  the  graphics  device 

*****  calls  error,  concol,  makemat,  imgtrans,  pdrpab, 
pmovab,  pchar,  sex,  scy 
-  called  by  funnel 

ptrack  :  read  the  position  of  the  cursor  on  screen  device 
and  return  X,Y  coordinates 


*****  calls  pcread,  ndcx,  ndcy 

-  called  by  pgetloc2f  pgetstr2,  pgetcursor 

pputcur  :  place  cursor  on  the  screen  device 
*****  calls  pplace,  sex,  scy 
-  called  by  pgetloc2 

**************************************************** 

V.  Ctllext.h 

initdd  :  initialize  graphic  device  driver 
*****  calls  pi nit 

-  called  by  initcore 

funnel  :  interface  between  DD  and  DI  routines 

*****  calls  pvport,  plline,  pltext,  plpgon,  plmark,  pexec 

-  called  by  addprim,  drawseg,  ddnewframe 

newframedd  :  clears  the  graphic  driver  screen 

*****  calls  perase,  psetco,  pdrrec,  pexec 
-  called  by  ddnewframe 

escapedd  :  allow  user  to  access  non-standard  core  routines 
available  for  graphics  device 
*****  calls  pdreir,  pdrdsk,  perdsk,  pmovab,  pchar, 

sex,  scy,  plower,  pexec,  perase,  psetco,  psetgr, 
perchr,  percir 

-  called  by  escape 

initinput  :  initialize  input  variables 
*****  no  calls 

-  called  by  initcore 

pgetbut  :  get  button  number 
*****  no  calls 

-  called  by  awaitbut,  polval 

pgetkey  :  get  string  of  characters 
*****  no  calls 

-  called  by  awaitkey 

pgetval  i  get  input  value 
*****  no  calls 
-  called  by  polval 

pgetloc2  :  get  the  locator  position  on  tablet  from  joystick 
*****  calls  pputcur,  ptrack 

-  called  by  polloc2 

pgetloc3  :  3D  cursor  location  input 
*****  no  calls 

-  called  by  polloc3 

pgetstr2  :  get  stroke  position  from  tablet 
*****  calls  ptrack 

-  called  by  awaitstr2 

pgetstr3  :  3D  stroke  device  input 
*****  no  calls 

-  called  by  awaitstr3 

pget cursor  :  get  cursor  position  from  tablet 
*****  calls  ptrack 
-  called  by  awaitpick,  pickxy 

**************************************************** 


VI.  Ut i 1 2ex t . h 

usertrans  :  transforms  the  points  in  a  primitive  via  user 
specified  modeling  matrix 
*****  no  calls 
-  called  by  addprim 

worldtrans  :  transforms  the  points  in  a  primitive  via  world 
coordinate  transf ormation 
*****  no  calls 
-  called  by  addprim 

unitvector  :  computes  normailzed  version  of  the  first 
coordinate  of  the  vector 
*****  no  calls 

-  called  kby  sproj ,  svpnor,  svup2,  svup3 

realequal  :  compares  2  real  nembers  for  equality 
*****  no  calls 

-  called  by  vtran,  crrseg,  iitn2,  iitr2,  indcs2, 

ipsn2,  ivprt2,  ivup2,  sndcs2,  sndcs3,  sproj, 
ssitn2,  ssitr2,  ssitr3,  svpnor,  svup2,  svup3 
dotproduct  :  compute  the  dotproduct  of  2  vectors 
*****  no  calls 
-  called  by  vtran 

crossproduct  :  compute  the  crossproduct  of  2  vectors 
*****  no  calls 
-  called  by  vtran 

clipper  :  clips  a  normalized,  transformed  primitive 
*****  no  calls 
-  called  by  addprim 

perdiv  :  performs  a  perspective  division  of  a  primitive  in  a 
truncated  right  regular  pyramid 
*****  no  calls 
-  called  by  addprim 

winvewmap  :  maps  from  window  coordinates  to  viewport  coordinates 
*****  no  cal 1 s 
-  called  by  addprim 

primxtent  :  calculates  the  extent  of  the  corners  of  an  enclosing 
box  used  by  the  pick  operation 
*****  no  calls 

-  called  by  addprim 

invmat  :  invert  a  4X4  matrix 
*****  cal 1 s  prtmat 
-  called  by  ndcwcs2 

**************************************************** 

VII.  Utilext.h 

eqnames  Z  compares  2  strings  for  equality 
*****  no  calls 

-  called  by  findseg,  prevseg 

:  initialize  attributes  of  primitives  to  current 
vlaues  of  global  primitive  attributes 
*****  no  calls 

-  called  by  lina2,  lina3,  linr2,  linr3,  marka2, 

marka3,  markr2,  markr3,  plina2,  plina3,  plinr2. 


ini tprim 


plinr3,  pmrka2,  pmrka3,  pmrkr2,  pmrkr3,  polya2, 
polya3,  polyr2,  polyr3,  textgr 

addprim  :  adds  the  primitive  to  the  currently  open  segment  if 
the  segment  is  a  retained  one 
*****  calls  usertrans,  worldtrans,  clipper,  perdiv, 
winvewmap,  funnel,  primxtent 

-  called  by  lina2,  lina3,  linr2,  linr3,  marka2, 

marka3,  markr2,  markr3,  plina2,  plina3,  plinr2, 

plinr3,  pmrka2,  pmrka3,  pmrkr2,  pmrkr3,  polya2, 

polya3,  polyr2,  polyr3,  textgr 

emptyseg  :  delete  all  primitives  in  segment 
*****  no  calls 

- called  by  cltseg,  del  all,  derseg,  termcore 

drawseg  :  draw  all  primitives  in  a  segment 
*****  calls  funnel 

-  called  by  simmed,  endbupdt,  ssvis 

findseg  :  find  the  requested  segment 
*****  calls  eqnames 

-  called  by  crrseg,  derseg,  isdet,  ishilt,  isitn2, 

isitr2,  isitr3,  isttyp,  isvis,  renseg,  ssdet, 

sshilt,  ssitn2,  ssitr2,  ssitr3,  ssvis 

prevseg  :  locate  the  requested  segment,  then  return  a  pointer 
to  the  previous  segment  in  the  list 
*****  calls  eqnames 
-  called  by  derseg 

vtran  :  calculates  the  viewing  transf ormation  matrix  from  the 
current  values  of  the  viewing  parameters 
*****  calls  prtmat,  crossproduct ,  real equal,  dotproduct 

-  called  by  ndcwcs2,  wcsndc2,  crrseg,  crtseg 

ddnewf rame  :  clear  the  screen  to  the  background  color 
*****  calls  newframedd,  funnel 

-  called  by  simmed,  del all,  derseg,  newframe, 

endbupdt,  sshilt,  ssitn2,  ssitr2,  ssitr3,  ssvis 
ddclrseg  :  closes  the  currently  copen  retained  segment 
*****  no  calls 

- called  by  clrseg,  del  all,  derseg,  termcore 

initdi  :  initializes  all  device  independent  parts  of  core  system 
*****  no  calls 

-  called  by  initcore 

locrec  :  locates  the  input  device  record 
*****  calls  error 

-  called  by  awaitbut,  awaitkey,  awaitpick,  awaitstr2, 

awaitstr3,  initde,  initgr,  inqbut,  inqdevstat, 
inqecho,  inqkey,  inqloc2,  inqloc3,  inqlocdi, 
inqlocp2,  inqlocp3,  inqpic,  inqstrdi,  inqstroke, 
inqval,  pickxy,  polloc2,  polloc3,  polval, 
setallbut,  setbut,  setechod,  setechog,  set key, 
setloc2,  setloc3,  setlocp2,  setlocp3,  setpic, 
setstroke,  setval ,  termde,  termgr 
makinvmat  :  creates  an  inverse  4X4  transformation  matrix 
from  a  1X9  matrix 
*****  no  calls 
-  not  called 

**************************************************** 


VIII.  Common . h 


ndcwcs2  :  map  ndc  coordinates  to  wcs  coordinates 
*****  calls  error,  vtran,  invmat 

-  called  by  ddnewline,  txtcoor 

wcsndc2  :  map  wcs  to  ndc  coordinates 
*****  calls  error,  vtran 

-  called  by  ddnewline,  txtcoor,  setmargin 

ddnewline  :  goes  to  beginning  o-f  new  line 

*****  calls  ndcwcs2,  wcsndc2,  ndcy,  scy 
-  called  by  newline 

simmed  :  sets  the  value  of  immediate  visibility 
*****  calls  error,  ddnewframe,  drawseg 

-  called  by  mkpiccur,  makepiccurrent 

txtcoor  :  computes  diagonal  of  a  text  string  in  wcs  2  for  later 
use  in  picking  string 

*****  calls  wcsndc2,  ndcwcs2,  sex,  scy,  ndex,  ndcy 
-  called  by  textgr 


**************************************************** 

IX.  Userext.h  Files  -  none  of  these  routines  are  called  by 

any  other  routine 

awaitbut  :  wait  for  button  device,  get  number 
*****  calls  error,  locrec,  pgetbut 
awaitkey  :  wait  for  keyboard  event,  get  string 
*****  calls  error,  locrec,  pgetkey 
awaitpick  :  get  segment  and  output  primitive 

*****  calls  makeinvmat,  pget cursor,  error,  locrec 

contains  its  own  makemat,  imgtrans,  imagextnt 
awaitstr2  :  wait  for  event,  get  X,Y  stroke  data 
*****  calls  error,  locrec,  pgetstr2 
awaitstr3  :  wait  for  event,  get  X,Y,Z  stroke  data 
*****  calls  error,  locrec,  pgetstr3 
clrseg  :  closes  dthe  currently  open  retained  segment 
*****  calls  error,  ddclrseg 
cltseg  :  closes  the  currently  open  temporary  segment 
*****  calls  error,  emptyseg 
errseg  :  create  a  new,  empty  retained  segment 

*****  calls  error,  vtran,  findseg,  real equal 
ertseg  :  creates  a  new,  empty  temporary  segment 
*****  calls  error,  vtran 

dclndc  :  define  all  indices  in  the  color  index  table 
*****  cal 1 s  error 

dclndx  :  define  specified  entry  in  color  index  table 
*****  calls  error 

printpdf  :  print  current  display  file 
*****  no  calls 

printseg  :  print  current  segment 
*****  no  calls 

:  deletes  all  retained  segments 

*****  calls  error,  ddnewframe,  emptyseg,  ddclrseg 


delal 1 


derseg  :  deletes  retained  segment  with  specified  segment  name 
*****  calls  error,  ddclrseg,  ddnewframe,  emptyseg, 
findseg,  prevseg 

dstdcl  :  provides  standard  assignment  for  indices  loading  into 
the  color  table 
*****  calls  error 

saveenv  :  , save  current  environment  on  stack 

*****  calls  error 

restoreenv  :  restores  most  recently  saved  environment 
*****  no  calls 

escape  :  access  non  standard  core  routines 
*****  calls  error,  escapedd 
ibgndx  :  copies  background  index  parameter 
*****  calls  error 

i cl ndc  :  copies  color  values  of  all  indices 
*****  calls  error 

iclndx  :  copies  color  parameters  of  specific  indicies 
*****  calls  error 

iconst  :  gets  values  of  immediate  visibility  and  batching  of 
updates 

*****  calls  error 

idtect  :  gets  value  of  the  global  segment  attribute  of 
detectabi 1 i ty 
*****  calls  error 

iflndx  :  gets  the  value  of  the  global  primitive  attribute  of 
fill  i ndex 
*****  calls  error 

i hi lit  :  gets  the  value  of  the  global  segment  attribute  of 
highlighting 
*****  calls  error 

iitn2  :  get  value  of  image  translation  in  X,Y 
*****  calls  error,  real equal 
iitr2  :  get  value  of  image  transformation  in  X,Y 
*****  calls  error,  real equal 

iitr3  :  gets  the  value  of  the  global  segment  attribute  of 
image  transformation 
*****  calls  error 

ilndx  :  gets  the  value  of  the  global  primitive  attributes  of 
line  index 
*****  calls  error 

ilstyl  :  gets  the  value  of  the  global  primitive  attribute  of 
line  style 
*****  cal 1 s  error 

ilwid  :  gets  the  value  of  the  global  primitive  attribute  of 
line  width 
*****  calls  error 

imksym  :  gets  the  value  of  the  global  primitive  attribute  of 
marker  symbol 
*****  calls  error 

indcs2  :  get  limits  of  ndc  space  in  X,Y 
*****  calls  error,  real  equal 

indcs3  :  gets  the  limits  of  the  portion  of  the  display  device 
mapped  to  by  ndc  values 
*****  calls  error 
initcore  :  initialize  core  system 


ini tde 


*****  calls  error,  initdd,  initdi,  initinput 
:  initialize  specified  device 
*****  calls  error,  locrec 
initgr  :  initialize  device  group 
*****  calls  error,  locrec 
initvs  :  initialize  selected  graphics  device 
*****  calls  error,  escape,  pi nit 
inqbut  :  get  button  value 

*****  calls  error,  locrec 
inqdevstat  :  get  device  status 

*****  calls  error,  locrec 
inqecho  :  get  echo  o-f  device 

*****  calls  error,  locrec 
inqicap  :  inquire  the  input  capabilities 
*****  calls  error 
inqkey  :  get  keyboard 

*****  calls  error,  locrec 
inqloc2  :  get  locator  device  coordinates  in  X,Y 
*****  calls  error,  locrec 
inqloc3  :  get  locator  device  coordinates  in  X,Y,Z 
*****  calls  error,  locrec 

inqlocdi  :  get  the  dimension  of  the  specified  locator  device 
*****  calls  error,  locrec 

inqlocp2  :  get  bounds  of  the  specified  locator  device  in  X,Y 
*****  calls  error,  locrec 

inqlocp3  :  get  bounds  of  the  specified  locator  device  in  X,Y,Z 
*****  calls  error,  locrec 

inqpic  :  get  aperature  characteristics  of  specified  pick  device 
*****  calls  error,  locrec 

inqstrdi  :  get  the  dimension  of  the  specified  stroke  device 
*****  calls  error,  locrec 

inqstroke  :  copy  current  stroke  buffer  size,  distance,  and  time 
parameters  into  storage  variables 
*****  calls  error,  locrec 

inqval  :  copy  initial  value,  low  value,  and  high  value  of 
selected  valuator 
*****  calls  error  , locrec 

ioseg  :  returns  the  name  of  the  currently  open  retained  segment 
if  there  is  one 
*****  calls  error 

iotseg  :  returns  a  boolean  value  specifying  if  there  is  a 
currently  open  temporary  segment 
*****  calls  error 

ipen  :  gets  the  value  of  the  global  primitive  attribute  of  pen 
*****  calls  error 

ipesty  :  gets  the  value  of  the  global  primitive  attribute  of 
polygon  edge  style 
*****  calls  error 

ipid  :  gets  the  value  of  the  global  primitive  attribute  of 
pick  id 

*****  calls  error 

iproj  :  gets  the  current  value  of  the  projection  type  for 
parallel  or  perspective 
*****  calls  error 
ipsn2  :  get  current  X,Y  position 


isitr2 
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*****  calls  error,  real equal 

ipsn3  :  returns  the  value  of  the  current  operating  point 
*****  calls  error 

irsnan  :  returns  up  to  a  max  o-f  the  names  of  all  currently 
existing 

retained  segments 
*****  calls  error 

Lsdet  :  gets  segment  attribute  of  detectability 
*****  calls  error,  findseg 

ishilt  :  gets  segment  attribute  of  highlighting 
*****  calls  error,  findseg 

Lsitn2  :  gets  segment  attribute  of  image  translation  for  X,Y 
*****  calls  error,  findseg 

Lsitr2  :  gets  segment  attribute  of  image  transformation  for  X,Y 
*****  calls  error,  findseg 

Lsitr3  :  gets  segment  attribute  of  image  transformation  for 
X,  Y,  Z 

*****  calls  error,  findseg 

Lstdcl  :  returns  the  nine  parameters  which  describe  the  standard 
assignment  of  color  index  values 
*****  calls  error 

isttyp  :  get  segment  image  transformation  type 
*****  calls  error,  findseg 

Lsvis  :  get  segment  visibility 

*****  calls  error,  findseg 

L trtyp  :  gets  the  value  of  the  global  segment  attribute  of  image 
transformation 
*****  calls  error 

Ltxndx  :  gets  the  value  of  the  global  primitive  attribute  of 
text  index 
*****  calls  error 

Lvcpar  :  gets  the  current  values  of  window  clipping 
*****  calls  error 

Lvdpth  :  gets  the  view  depth 
*****  calls  error 

Lvisib  :  gets  the  value  of  the  global  segment  attribute  of 
visibility 
*****  cal 1 s  error 

Lvpdis  :  gets  the  current  v^lue  of  the  view  plane  distance 
*****  calls  error 

Lvpnor  :  gets  the  current  value  of  the  view  plane  normal  vector 
*****  calls  error 

Lvprt2  :  get  values  of  coordinates  of  lower  left  and  upper  right 
of  rectangular  viewport  in  X,Y 
*****  calls  error,  real  equal 

Lvprt3  :  gets  the  minimum  and  maximum  bounds  of  the  viewport 
*****  calls  error 

Lvrfpt  :  gets  the  current  value  of  the  view  reference  point 
*****  calls  error 

Lvup2  :  get  cur-  -»nt  value  of  view  up  vector  in  X,Y 
*****  calls  error,  real equal 

Lvup3  :  gets  the  current  value  of  the  un-normalized  version 
of  the  view  up  vector 
*****  calls  error 

iwindo  :  gets  the  current  values  of  the  lower  left  and  upper 
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right  corners  of  the  window 
*****  calls  error 

lina2  :  creates  a  line  primitive  with  X,Y  endpoints 
*****  calls  error,  initprim,  addprim 
lina3  :  creates  a  line  primitive  with  X,Y,Z  endpoints 
*****  calls  error,  initprim,  addprim 
linr2  :  creates  a  line  primitive  displayed  with  dx,  dy  endpoints 
*****  calls  error,  initprim,  addprim 
linr3  :  creates  a  line  primitive  displayed  with  dx,  dy,  dz 
endpoints 

*****  calls  error,  initprim,  addprim 
marka2  :  create  a  marker  primitive  at  X,Y 

*****  calls  error,  initprim,  addprim 
marka3  :  create  a  marker  primitive  at  X,Y,Z 
*****  calls  error,  initprim,  addprim 
markr2  :  create  a  marker  primitive  at  location  displaced 
by  dx,  dy 

*****  calls  error,  initprim,  addprim 
markr3  :  create  a  marker  primitive  at  location  displaced  by 
dx,  dy,  dz 

*****  calls  error,  initprim,  addprim 
mkpiccur  :  update  picture 

*****  calls  error,  simmed 

mova2  :  sets  the  current  operating  point  to  the  absolute 
location  X,Y 
*****  cal 1 s  error 

mova3  :  sets  the  current  operating  point  to  the  absolute 
location  X,Y,Z 
*****  calls  error 

movr2  :  sets  the  current  operating  point  to  the  relative 
location  X,Y 
*****  calls  error 

movr3  -  sets  the  current  operating  point  to  the  relative 
location  X,Y,Z 
*****  cal 1 s  error 
makepiccurrent  :  update  picture 

*****  calls  error,  simmed 
newframe  :  start  a  new  frame 

*****  calls  error,  ddnewframe 
newline  :  start  new  text  string  line 
*****  calls  error,  ddnewline 

pickxy  :  wait  for  event,  get  segment  name  and  picked  point 
*****  calls  pgetcursor,  error,  locrec,  makeinvmat 
plina2  :  create  a  polyline  primitive  at  position  X,Y 
*****  calls  error,  initprim,  addprim 
plina3  :  create  a  polyline  primitive  at  position  X,Y 
*****  calls  error,  initprim,  addprim 
plinr2  :  create  a  polyline  primitive  displaced  at  dx,  dy 
*****  calls  error,  initprim,  addprim 
plinr3  :  create  a  polyline  primitive  displaced  at  dx,  dy,  dz 
*****  calls  error,  initprim,  addprim 
pmrka2  :  create  a  polymarker  primitive  at  position  X,Y 
*****  calls  error,  initprim,  addprim 
pmrka3  :  create  a  polymarker  primitive  at  positon  X,Y,Z 
*****  calls  error,  initprim,  addprim 


pmrkr2  :  create  a  polymarker  primitive  displaced  at  dx,  dy 
*****  calls  error,  initpirm,  addprim 
pmrkr3  :  create  a  polymarker  primitive  displaced  at  dx,  dy,  d 
*****  calls  error,  initprim,  addprim 
polloc2  :  wait  -for  event,  get  X,Y  location 
*****  calls  error,  locrec,  pgetloc2 
polloc3  :  wait  for  event,  get  X,Y,Z  location 
*****  calls  error,  locrec,  pgetloc3 
polval  :  wait  for  event,  get  the  value 

*****  calls  error,  locrec,  pgetbut,  pgetval 
polya2  :  create  a  polygon  primitive  at  X,Y 
*****  calls  error,  initprim,  addprim 
polya3  :  create  a  polygon  primitive  at  X,Y,Z 
*****  calls  error,  initprim,  addprim 
polyr2  :  create  a  polygon  primitive  displaced  at  dx,  dy 
*****  calls  error,  initprim,  addprim 
polyr3  :  create  a  polygon  primitive  displaced  at  dx,  dy,  dz 
*****  calls  error,  initprim,  addprim 
printer  :  diagonstic  routine  that  displays  input  structure 
at  once 

*****  no  calls 

renseg  :  rename  retained  segment 
*****  calls  error,  findseg 

sbgndx  :  sets  the  background  index  to  the  given  index 
*****  calls  error 

beginbupdt  :  sets  the  value  of  batch  of  update  flag  to  true 
*****  calls  error 

endbupdt  :  sets  the  value  of  batch  of  update  flag  to  false 
*****  calls  error,  ddnewframe,  drawseg 
sclipw  :  sets  the  viewing  parameter  of  window  clipping 
*****  calls  error 

sclpbp  :  sets  the  viewing  parameter  of  back  plane  clipping 
*****  calls  error 

sclpfp  :  sets  the  viewing  parameter  of  front  plane  clippinge 
*****  calls  error 

scortp  :  sets  the  world  coordinate  system  handednness  to  left 
or  right  handed 
*****  calls  error 

sdtect  :  sets  the  value  of  the  global  segment  attribute  of 
detect ab i 1 i t y 
*****  calls  error 

setallbut  :  set  prompt  switch  for  all  button  devices 
*****  calls  error,  locrec 
setbut  :  set  prompt  switch  for  specified  button 
*****  calls  error,  locrec 
setechod  :  set  the  echo  type  for  specified  device 
*****  calls  error,  locrec 

setechog  :  set  the  echo  type  for  all  devices  in  the  specified 
group 

*****  calls  error,  locrec 
setkey  :  set  current  keyboard 

*****  calls  error,  locrec 

setloc2  :  set  locator  device  position  to  X,Y  coordinate 
*****  calls  error,  locrec 

setloc3  :  set  locator  device  position  to  X,Y,Z  coordinate 


*****  calls  error,  locrec 
setlocp2  :  set  bounds  of  locator  device  in  X,Y 
*****  calls  error,  locrec 
setlocp3  :  set  bounds  of  locator  device  in  X,Y,Z 
*****  calls  error,  locrec 

setmargin  :  resets  the  leftnargin  index  to  the  current 
ndc  X  coordinate 
*****  calls  error,  »*csndc2 

setpic  :  set  aperature  size  in  X,Y  for  specified  pick  device 
*****  calls  error,  locrec 
setstroke  :  set  current  stroke  device 
*****  calls  error,  locrec 
setval  :  set  valuator  device 

*****  calls  error,  locrec 

sflndx  :  sets  the  value  of  the  global  primitive  attribute  of 
polygon  fill  index 
*****  calls  error 

shilit  :  sets  the  value  of  the  global  segment  attribute  of 
highlighting 
*****  calls  error 

sitn2  :  sets  the  value  of  the  global  segment  attribute  of  image 
transf ormation  to  the  translation  in  the  X,Y  plane 
*****  calls  error 

sitr2  :  sets  the  value  of  the  global  segment  attribute  of  image 
transformation  to  2— D  transformation 
*****  cal 1 s  error 

sitr3  :  sets  the  value  of  the  global  segment  attribute  of  image 
transformation  to  3— D  transf ormation 
*****  calls  error 

slndx  :  sets  the  value  of  the  global  primitive  attribute  of 
line  index 
*****  calls  error 

slstyl  :  sets  the  value  of  the  global  primitive  attribute  of 
line  style 
*****  calls  error 

slwid  :  sets  the  value  of  the  global  primitive  attribute  of 
line  width 
*****  calls  error 

smksym  :  sets  the  value  of  the  global  primitive  attribute  of 
marker  symbol 
*****  calls  error 

sndcs2  :  defines  usable  portion  of  the  output  device  in  X,Y 
*****  calls  error,  real equal 

sndcs3  :  defines  usable  portion  of  the  output  device  in  X,Y,Z 
*****  calls  error,  real equal 

spen  :  sets  the  value  of  the  global  primitive  attribute  of  pen 
*****  calls  error 

spesty  :  sets  the  value  of  the  global  primitive  attribute  of 
polygon  edge  style 
*****  calls  error 

spid  :  sets  the  value  of  the  global  primitive  attribute  of 
pickid 

*****  calls  error 

:  sets  projection  type  to  either  parallel  or  perspective 
*****  calls  error,  real equal,  unit vector 


sproj 


ssdet  :  set  segment  detectability 
*****  calls  error,  findseg 

sshilt  :  sets  the  segment  attribute  of  highlighting  of  the 
segment  name 

*****  calls  error,  findseg,  ddnew-frame 
ssitn2  :  sets  the  segment  attribute  of  image  transformation  of 
the  segment  name  to  the  translation  in  the  X,Y  plane 
*****  calls  error,  findseg,  ddnewframe,  real equal 
ssitr2  :  sets  the  segment  attribute  of  image  transformation  of 
the  segment  name  to  the  2-0  transformation 
*****  calls  error,  findseg,  ddnewframe,  real equal 
ssitr3  :  sets  the  segment  attribute  of  image  transformation  of 
the  segment  name  to  the  3— D  transformation 
*****  calls  error,  findseg,  ddnewframe,  real equal 
ssvis  :  sets  the  segment  attribute  of  visibility 

*****  calls  error,  findseg,  ddnewframe,  drawseg 
strtyp  :  sets  the  value  of  the  global  segment  attribute  of  image 
transformation  style 
*****  calls  error 

stxndx  :  sets  the  value  of  the  global  primitive  attribute  of 
text  index 
*****  calls  error 
svdpth  :  sets  the  view  depth 
*****  calls  error 

svisib  :  sets  the  value  of  the  global  segment  attribute  of 
visibility 
*****  calls  error 

svpdis  :  sets  the  view  plane  distance 
*****  calls  error 

svpnor  :  sets  the  view  plane  normal 

*****  calls  error,  realequal,  unitvector 
svprt2  :  defines  the  viewport  to  be  a  rectangle 
*****  calls  error 

svprt3  :  defines  the  viewport  in  3-D 
*****  calls  error 

svrfpt  :  sets  the  view  reference  point 
*****  calls  error 

svup2  :  sets  the  view  up  vector  to  a  normalized  version  X,Y 
*****  calls  error,  realequal,  unitvector 
svup3  :  sets  the  view  up  vector  to  a  normalized  version  X,Y,Z 
*****  calls  error,  realequal,  unitvector 
swindo  :  sets  the  window  to  be  a  rectangle 
*****  calls  error 

termcore  :  terminate  the  core  system 

*****  calls  error,  ddclrseg,  emptyseg,  pterm 
termde  :  terminate  specified  device 
*****  calls  error,  locrec 

termgr  :  terminates  all  initialized  devices  in  specified 
group 

*****  calls  error,  locrec 
termvs  :  terminates  the  selected  graphics  device 
*****  calls  error,  pterm,  escape 
textgr  :  insert  a  string  into  the  current  segment 

*****  calls  error,  initprim,  txtcoor,  addprim 


************************************************************ 
X.  Device  Drivers 
Vi sual  550 


alpha550  :  places  the  visual  550  into  alpha  node 
*****  calls  out550 

char5SO  :  writes  a  string  o-f  characters  (up  to  80)  to  the 
vi sual  550 

*****  calls  alpha550t  out 550,  graph550 
clr550  :  clears  the  visual  550  screen 
*****  calls  out 550 

cros&550  :  reads  the  cross  hair  position  in  xty  coordinates  on 
the  visual  550,  also  returns  the  character  used  to 
initiate  the  read 
*****  calls  out 550 

graph5SO  :  puts  the  visual  50  inot  graphics  node 
*****  calls  out 550 

-  called  by  nove550 

init550  :  initializes  the  visual  550  screen 
*****  calls  out550 

line550  :  draws  a  line  between  2  given  endpoints  on  visual  550 
*****  calls  graph550,  tran550 

nodeSSO  :  turns  the  pixels  on  or  off  -for  the  visual  550,  with 
the  pixels  off,  lines  or  points  can  be  selectively 
del eted 

*****  calls  out550 

nove550  :  places  the  visual  550  cursor  at  a  specified  location 
*****  calls  graph550,  tran550 

out550  :  the  central  routine  that  outputs  graphics  comands 
to  the  visual  550 

- called  by  alpha^O,  char 550,  clr550,  cross550, 

graph550,  init550,  node550,  size550,  tern550, 
tranSSO 

size550  :  set  the  character  size  for  the  visual  550 
*****  calls  out 550 
term550  :  terminates  the  visual  550 
*****  calls  out 5 50 

tran550  :  translates  given  x,y  coordinate  values  into  x,y 

high/low  byte  character  values,  then  moves  to  the 
specified  location  on  the  visual  550 
*****  calls  out 550 
-  called  by  line550,  move550 

Tektronics  4014 


alphal4  :  places  the  tk4014  into  alphanunerics  node 
*****  calls  out  14 
- called  by  char  14 

charl4  :  writes  a  string  of  characters  (up  to  80)  to  the  tk4014 
*****  calls  out 14 
-  called  by  pchar 


clrl4  :  clears  the  tk4014  screen 
*****  calls  out  14 

-  called  by  perase,  escapedd 

crossl4  :  reads  the  cross  hair  position  in  x,y  coordinates  on 
the  tk4014f  plus  returns  the  character  used  to 
initiate  the  read 
*****  calls  out  14 
-  called  by  pcread 

graph 14  :  puts  the  tk4014  into  graphics  node 
*****  calls  out 14 

-  called  by  charl4, 1 inel4, pi acel4, point 14, pdrpab 

initl4  :  initializes  the  tk4014 
*****  calls  out 14 
-  called  by  pinit 

line 14  :  draws  a  line  betwen  2  given  endpoints  on  tk4014 
*****  calls  graph 14,  tranl4 

-  called  by  pdrlin,  ppoly 

move 14  :  places  tk4014  cursor  at  a  specified  location 
*****  calls  graphl4,  tranl4 

-  called  by  pmovab,  pchar,  pplace 

out 14  :  the  central  routine  that  outputs  graphics  commands 

- called  by  alphal4,  char  14,  clrl4,  crossl4,  graphl4, 

init 14,  sizel4,  terml4,  tranl4 
sizel4  :  set  character  size  on  tk4014 
*****  calls  out 14 
terml4  :  terminates  the  tk4014 
*****  calls  out 14 
-  called  by  pterm 

tranl4  :  translates  given  x,y  coordinate  values  into  x,y 

high/low  byte  character  values,  then  moves  to  the 
specified  loction  on  the  tk4014 
*****  calls  out 14 
-  called  by  linel4,  move 14 

Hewlett  Packard  7220A 


charhp  :  writes  a  string  of  characters  (up  to  80)  on  the  hp7220a 
*****  calls  outhp 
-  called  by  pchar 

crosshp  :  returns  the  x,y  coordinates  of  the  hp7220a 
*****  calls  outhp 
-  called  by  pcread 

inithp  :  initializes  the  hp7220a,  pen  up  is  the  default 
*****  calls  outhp 

linehp  :  draws  a  line  between  2  given  endpoints  on  the  hp7220a 
*****  calls  outhp 
-  called  by  pdrlin 

movehp  :  moves  the  current  hp7220a  pen  to  the  specified  x,y 
coordinate  with  the  pen  up 
*****  calls  outhp 

-  called  by  pmovab,  pchar,  pplace 

offhp  :  takes  the  hp 7220a  offline 
*****  calls  outhp 

-  called  by  pinit,  perase,  escapedd 
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onhp  :  places  the  hp7220a  online 
*****  calls  outhp 

-  called  by  pi nit,  perase,  escapedd 

outhp  :  central  output  routine  for  the  hp7220a,  allowing  up  to 
a  maxi mum  baud  rate  of  2400 

-  called  by  charhp, crosshp, inithp, 1 i nehp , movehp , 

of  f hp , onhp , penhp , sel ec tpenhp , si zehp , termhp 
penhp  :  selects  the  specified  hp7220a  pen 
*****  cal 1 s  outhp 

selectpenhp  :  selects  the  specified  hp7220a  pen  (i-4  possible) 
0  means  return  current  pen  to  its  bin  holder 
*****  calls  outhp 

-  called  by  pinit,  escapedd 

sizehp  :  sets  the  character  size  for  hp7220a  in  centimeters 
*****  calls  outhp 

termhp  :  terminates  the  hp7220a,  pen  up  is  the  default 
*****  calls  selectpenhp,  outhp 
-  called  by  pterm 


Appendix  G 


Device  Driver  Source  Code 

************************************************************************ 
*  • 

*  In  the  "#defineM  sections  of  code,  the  "/"  should  be  replaced  by  * 

*  a  backwards  slash  * 

*  * 
************************************************************************ 


/*********************************************************************** 
*  * 

*  date:  12  act  83  * 

*  version:  1.0  • 

*  name:  alphal4 (pascal )  ,  alpl4_  (-fortran  77)  • 

*  description:  places  the  tk4014  into  alphanumerics  mode  * 

*  operating  system:  VAX  11/780  UNIX  * 

*  language:  c  * 

*  inputs:  n/a  * 

*  outputs:  graphics  command  to  put  tk4014  into  alpha  mode  * 

*  global  variables  used:  n/a  * 

*  global  variables  changed:  n/a  * 

*  global  tables  used:  n/a  * 

*  library  routines:  n/a  * 

*  -files  read:  n/a  * 

*  files  written:  n/a  * 

*  modules  called:  out 14  • 

*  calling  modules:  pchar  * 

*  author:  Capt  John  N.  Taylor  * 


***********************************************************************/ 

ttdefine  US  ,/037' 

alphal4<) 

i  j 

char  aryC23;  /*  control  character  array  */ 
ary COl  -  US| 

out 14(1, ary) I  /*  US  control  character  */  j 

> 


alpl4_() 

C 

alphal4<>; 

> 

/*********************************************************************** 

*  *i 


*  date:  12  act  83 

*  version:  1.0 

*  name:  char  14 (pascal ) ,  chr 14_ (fortran  77) 

*  description:  writes  a  string  of  characters  (up  to  80)  to  the 

*  operating  system:  VAX  11/780  UNIX 

*  language:  c 

*  inputs:  n/a 


* 

* 

tk4014  * 

* 

* 


*  outputs:  string  of  characters  to  the  tk4014  * 

*  global  variables  used:  n/a  * 

*  global  variables  changed:  n/a  * 

*  global  tables  used:  n/a  * 

*  library  routines:  n/a  * 

*  files  read:  n/a  * 

*  files  written :  n/a  * 

*  Modules  called:  outl4  * 

*  calling  nodules:  pchar  * 

*  author:  Capt  John  W.  Taylor  * 

*  * 
***********************************************************************/ 
char 14 (nun, out ary ) 

int  *nun; 
char  outaryCl; 

€ 

int  i;  /*  integer  to  pass  to  output  routine  */ 
i  *  «nun;  /*  output  routine  will  not  accept  #  */ 
out 14 (i , out ary) $ 

> 

chr 14_ (nun, out ary ) 
int  *nun} 
char  outaryCl; 

<. 

char 14 (nun, out ary) ; 

> 

/a********************************************************************** 

*  a 

*  date:  12  oct  83  * 

*  version:  1.0  * 

*  name:  clr 14 (pascal ) ,  clr 14_(f ortran77)  * 

*  description:  clears  the  tk4014  screen  # 

*  operating  system:  VAX  11/780  UNIX  * 

*  language:  c  * 

*  inputs:  n/a  * 

*  outputs:  graphics  command  to  clear  the  tk4014  screen  * 

*  global  variables  used:  n/a  * 

*  global  variables  changed:  n/a  * 

*  global  tables  used:  n/a  * 

*  library  routines:  n/a  * 

*  files  read:  n/a  * 

*  files  written:  n/a  * 

*  nodules  called:  outl4  * 

*  calling  modules:  perase,  escapedd  * 

*  author:  Capt  John  W.  Taylor  * 

*  * 
a*#***************************************************#*#**************/ 
•define  ESC  ’/033' 

•define  FF  ’/014’ 

char  tmpxyzC33|  /*  global  array  to  hold  3  bytes  used  for  comparisons  a/ 
clr 14 ( ) 
i 

char  aryC23f  /*  array  to  hold  characters  */ 
aryCOl  ■  ESC I  /a  ESC  control  character  */ 


’ -V 


ary [13  =  FF;  /*  FF  control  chracter  */ 
out  14  <2, ary) ; 

tmpxyzCOl  *  ESC;  /*  clear  array  to  start  over  */ 
tepxyzC 11  -  ESC; 
tmpxyzC23  =  ESC; 


clrl4_<> 

< 

clr 14 ( ) ; 

> 

/#********************************************************************** 
*  * 

*  date:  12  oct  83  * 

*  version:  1.0  * 

*  name:  cross 14 (pascal > ,  crsl4_ (fortran  77)  * 

*  description:  reads  the  cross  hair  position  in  x,y  coordinates  on  * 

*  the  tk4014y  plus  returns  the  character  used  to  * 

*  initiate  the  read  * 

*  operating  system:  VAX  11/780  UNIX  * 

*  language:  c  * 

*  inputs:  x,y  coordinates  from  the  tk4014,  character  used  to  initiate  * 

*  the  read  * 

*  outputs:  n/a  * 

*  global  variables  used:  n/a  * 

*  global  variables  changed:  n/a  * 

*  global  tables  used:  n/a  * 

*  library  routines:  n/a  * 

*  files  read:  n/a  * 

*  files  written:  na/  * 

*  modules  called:  out 14  * 

*  calling  modules:  pcread  * 

*  author:  Capt  John  W.  Taylor  * 

*  * 
*******************************#**********************#**************■**/ 
#def ine  ESC  ’ /033' 

#def ine  SUB  ' /032’ 
cross 14 (x,y, icnt ) 
int  *x,  *y,  *icnt; 

€ 

char  ary C51; 
int  i  I 

/*  turn  on  cross  hair  */ 

ary C03  ■  ESC;  /*  ESC  control  character  */ 
aryCll  ■  SUB;  /*  SUB  control  character  */ 
out 14 <2, ary) ; 

/*  get  characters  from  screen  */ 
i  ^  read(lf ary, 5) ; 


if  (i  *■  1)  /*  carriage  return  used  here  */ 

< 

read (1, ary, 5) ;  /*  another  read  necessary  since  carriage 

return  used  */ 


*IT7*TTg^gT5 '.»  ’•  V  ’>  ’■•  V.’ 


/*  convert  screen  characters  to  x,y  #/ 

*x  =  (  (aryCOl  Sc  037) *32  +  CaryCl]  Sc  037))? 

*y  =  <  <aryC23  Sc  037)  *32  +  CaryC33  Sc  037))? 

*icnt  *  * 

> 

else  /*  any  other  key  used  here  */ 

< 

/*  convert  screen  characters  to  x,y  */ 

*x  =  (  (ary C 1 3  Sc  037) *32  +  <aryC23  Sc  037))? 

*y  =  (  (aryC33  Sc  037)  *32  +  <aryC43  Sc  037))? 

*icnt  =  aryCOl? 

> 


if  (i  ==  1)  /*  carriage  return  used  here  */ 

read(l, ary, 5) ? 

else  /*  any  other  key  used  */ 

{ 

readd, ary, 5)  ? 
read  d ,  ary,  5)  ? 

> 

> 

crsl4_(x,y, icnt) 
int  *x,  *y,  *icnt? 

cross 14 (x , y, icnt ) ? 

> 

/*****************•*******«"******************•*********«-**************** 


*  * 

*  date:  12  oct  83  * 

*  version:  1.0  * 

*  name:  graph  14 (pascal  )  ,  gphl4_ (-fortran  77)  * 

*  description:  puts  the  tk4014  into  graphics  mode  • 

*  operating  system:  VAX  11/780  UNIX  * 

*  language:  c  • 

*  inputs:  n/a  * 

*  outputs:  graphics  command  to  tk4014  to  put  into  graphics  mode  * 

*  global  variables  used:  n/a  * 

*  global  variables  changed:  n/a  * 

*  global  tables  used:  n/a  * 

*  library  routines:  n/a  * 

*  -files  read:  n/a  * 

*  files  written:  n/a  * 

*  modules  called:  out 14  • 

*  calling  modules:  movel4,  pdrpab  * 

*  author:  Capt  John  W.  Taylor  * 

*  * 


***********************************************************************/ 
•define  GS  >/035’ 
graph  14  0 
C 

char  aryC23?  /*  array  to  hold  characters  */ 
ary COl  *  GS?  /*  GS  control  character  */ 

out 14(1, ary) ? 

> 


■.•vvvv WoW 

f ^ aV-  ^  -«v  _-  -j  -i 


G— 4 


MWAIVAHW  A. 


V'. 


VV 


gphl4_( ) 

<. 

graph 14 ( ) ; 

> 

/******************«*****************#####****#***************###******* 


*  * 

*  date:  12  oct  83  * 

*  version:  1.0  * 

*  name:  ini 1 14 (pascal > ,  intl4_ (fortran  77)  '  * 

*  description:  initializes  the  tk4014  screen  * 

*  operating  system:  VAX  11/780  UNIX  * 

*  language:  c  * 

*  inputs:  n/a  * 

*  outputs:  graphics  command  to  initialize  the  tk4014  * 

*  global  variables  used:  n/a  * 

*  global  variables  changed:  n/a  * 

*  global  tables  used:  n/a  * 

*  library  routines:  n/a  * 

*  files  read:  n/a  * 

*  files  written:  n/a  * 

*  modules  called:  out 14  * 

*  calling  modules:  pinit  * 

*  author:  Capt  John  W.  Taylor  * 

*  * 


*****************************************************************#*****/ 
ttdefine  ESC  ' /033’ 

«define  FF  r /Ol4’ 

char  tmpxyzC31;  /*  global  array  to  hold  3  bytes  used  for  comparisons  */ 

initl4<) 

f 

char  aryE21;  /*  array  to  hold  characters  */ 
aryCOl  =  ESC;  /*  ESC  control  character  */ 
ary C 11  *  FF;  /*  FF  control  character  */ 
out  14 (2, ary ) ; 

tmpxyzCOl  *=  ESC;  /*  clear  buffer  */ 
tmpxyzCll  =  ESC; 
tmpxyzC21  —  ESC; 

> 

intl4_() 

C 

ini t 14 () ; 

> 

/***********************«*#***********#***«**********#****************«* 


*  * 

*  date:  12  oct  83  * 

*  version:  1.0  * 

*  name:  1 inel4 (pascal ) ,  1 inl4_ (fortran  77)  * 

*  description:  draws  a  line  from  current  cursor  position  on  tk4014  * 

*  to  specified  x,y  coordinate  * 

*  operating  system:  VAX  11/780  UNIX  * 

*  language:  c  * 

*  inputs:  n/a  # 

*  outputs:  graphics  commands  to  draw  a  line  on  tk4014  * 


G-5 


V-V. 


V  ■. 


A 


*  global  variables  used:  n/a  * 

*  global  variables  changed:  n/a  * 

*  global  tables  used:  n/a  * 

*  library  routines:  n/a  * 

*  -files  read:  n/a  * 

*  -files  written:  n/a  * 

*  nodules  called:  tranl4  * 

*  calling  modules:  pdrlin,  ppoly  * 

*  author:  Capt  John  W.  Taylor  * 

*  * 
*********************************************************************•**/ 
linel4(x,y) 

int  *x,  *y; 

tranl4(x,y);  /*  translate  and  move  #/ 

> 


linl4_(x,y) 
int  *x,  *y; 
t 

linel4(x,y) $ 

> 

/*********************************************************************** 
*  * 

*  date:  12  oct  83  * 

*  version:  1.0  * 

*  name:  move  14 (pascal  )  ,  mvel4_< -fortran  77)  * 

*  description:  moves  tk4014  cursor  to  a  specified  location  * 

*  operating  system:  VAX  11/780  UNIX  * 

*  language:  c  * 

*  inputs:  n/a  * 

*  outputs:  graphics  command  to  place  cursor  at  specified  location  * 

*  global  variables  used:  n/a  * 

*  global  variables  changed:  n/a  * 

*  global  tables  used:  n/a  * 

*  library  routines:  n/a  * 

*  files  read:  n/a  * 

*  files  written:  n/a  * 

*  modules  called:  graph 14,  tranl4  * 

*  calling  modules:  pmovab,  pchar,  pplace  * 

*  author:  Capt  John  lnl.  Taylor  * 

*  * 
*****************************************************-******■**-**********/ 
novel4(x,y) 

int  *x,  *ys 

graph  140 1  /*  set  tk4014  to  move  */ 
tranl4(x,y);  /*  translate  and  move  */ 

> 


mvel4_ (x , y) 
int  *x,  *y| 

< 

movel4(x,y) ) 

> 


wen 


PS 


/*********************************************************************** 


*  * 

*  date:  12  oct  83  * 

*  version:  1.0  * 

*  name:  out 14  * 

*  description:  the  central  routine  that  outputs  graphics  commands  * 

*  to  the  tk4014  * 

*  operating  system:  VAX  11/780  UNIX  * 

*  language:  c  * 

*  inputs:  n/a  * 

*  outputs:  write  command  to  output  characters  * 

*  global  variables  used:  n/a  * 

*  global  variables  changed:  n/a  * 

*  global  tables  used:  n/a  * 

*  library  routines:  n/a  * 

*  -files  read:  n/a  * 

*  -files  written:  n/a  * 

*  modules  called:  n/a  * 

*  calling  modules:  alphal4,  charl4,  clrl4,  crossl4,  graphl4,  * 

*  initl4,  linel4,  movel4,  sizel4,  terml4,  tranl4  * 

*  author:  Capt  John  W.  Taylor  * 

*  * 


a**********************************************************************/ 
out 14 (num,outary) 

int  num;  /*  number  of  characters  in  array  */ 
char  outaryCJ;  /*  array  of  output  characters  */ 
f 

write (2, outary , nun) ; 

> 

/  iHHHHMMMHUMHHMUMHUUMMUHHMMHMUHHHHHMHMUHUHUHHMMMMHHMHMHHUHHHHUHHHMMMMUHHI' 


*  * 

*  date:  17  oct  83  * 

*  version:  1.0  * 

*  name:  si zel4 (pascal ) ,  si zl4_ (fortran)  * 

*  description:  set  the  character  size (4  sizes  possible)  * 

*  1  =  74  characters,  35  lines  (default)  * 

*  2  *  81  characters,  38  lines  * 

*  3  =  121  characters,  58  lines  * 

*  4  =  133  characters,  64  lines  * 

*  operating  system:  VAX  11/780  UNIX  * 

*  language:  c  * 

*  inputs:  n/a  * 

*  outputs:  n/a  * 

*  global  variables  used:  n/a  * 

*  global  variables  changed:  n/a  * 

*  global  tables  used:  n/a  * 

*  library  routines:  n/a  * 

*  files  read:  n/a  * 

*  files  written:  n/a  * 

*  modules  called:  out  14  * 

*  calling  modules:  n/a  * 

*  author:  Capt  John  W.  Taylor  * 

*  * 


s***#***********************#**************#*******#**************#*-***/ 
#def ine  ESC  ’ /033' 


sizel4(num) 
int  *nun; 

< 

char  aryC23;  /*  array  to  hold  characters  */ 

ary C03  =  ESC; 

if  (*num  =  4)  /*  133  characters,  64  lines  */ 

aryC 13  =  ' ; ’ ; 

else  if  <*num  ==  3)  /*  121  characters,  58  lines  */ 
aryC 13  =  ' : ' ; 

else  if  Onum  ==  2)  /*  81  characters,  38  lines  *7 
aryC 13  =  '9'; 

else  /*  74  characters,  35  lines  */ 

aryC 13  =  '8';  /*  default  *7 

out 14  <2, ary) ; 

> 


siz 14_ (nun) 
int  #num; 

sizel4<num) $ 

> 

/********************************************************************** 

* 

*  date:  12  oct  83 

*  version:  1.0 

*  name:  terml4 (pascal ) ,  trml4_ (fortran  77) 

*  description:  terminates  the  tk4014 

*  operating  system:  VAX  11/780  UNIX 

*  language:  c 

*  inputs:  n/a 

*  outputs:  graphics  command  to  terminate  the  tk4014 

*  global  variables  used:  n/a 

*  global  variables  changed:  n/a 

*  global  tables  used:  n/a 

*  library  routines:  n/a 

*  files  read:  n/a 

*  files  written:  n/a 

*  modules  called:  out 14 

*  calling  modules:  pterm 

*  author:  Capt  John  W.  Taylor 

* 

*****#***#******************##***##*****#*************#*#**********-**#* 
#def ine  ESC  ' /033' 

#def ine  FF  ’ /014’ 

char  tmpxyzC33;  /*  global  array  to  hold  3  bytes  used  for  comparisons  */ 
terml4 ( ) 

< 

char  aryC23;  /*  array  to  hold  characters  *7 
aryC03  =  ESC;  /*  ESC  control  character  *7 
aryC 13  =  FF;  /*  FF  control  character  */ 
out  14  (2,  ary) ; 

tmpxyzC03  *  ESC;  /*  clear  buffer  */ 
tmpxyzCll  =  ESC; 
tmpxyzC23  -  ESC; 


WV  oV  < 


trml4_ ( ) 

< 

terml4 ( ) $ 

> 


*  « 

*  date:  12  oct  83  * 

a  version:  1.0  * 

*  name:  tranl4  * 

*  description:  translates  given  x,y  coordinate  values  into  x,y  high/  a 

a  low  byte  character  values,  then  moves  to  the  a 

a  specified  location  on  the  tk4014  a 

a  operating  system:  VAX  11/780  UNIX  a 

a  language:  c  a 

a  inputs:  n/a  a 

a  outputs:  graphics  command  to  move  tk4014  cursor  a 

a  global  variables  used:  temp  a 

a  global  variables  changed:  temp  a 

a  global  tables  used:  n/a  a 

a  library  routines:  n/a  * 

a  -files  read:  n/a  a 

*  -files  written:  n/a  a 

a  modules  called:  out 14  a 

a  calling  modules:  linel4,  movel4  a 

a  author:  Capt  John  W.  Taylor  a 

a  a 


aaaaaaaaaa«aa***»*aaaaaaaaaaaa*a*aaaaaaaaaaaaaaaa***aaaaaa*aaaa«aa*a**a/ 
char  tmpxyzC3l;  /a  global  array  to  hold  3  bytes  used  for  comparisons  a/ 
tranl4(x, y) 
int  *x,  *y» 

< 

int  valuel, value2,value3,value4; 

char  aryC41;  /a  array  to  hold  characters  for  actual  cursor  move  a/ 
int  flag;  /a  determine  if  lo  y  set,  0=not  set,  l=set  a/ 
int  i;  /a  counter  a/ 
ttdefine  msmask  040 
#define  xlsmask  0100 
#define  ylsmask  0140 
valuel  =  ax; 
value4  =  ay; 
value2  =  valuel; 
valuel  =  valuel  8c  037; 
value2  8  value2; 
value2  8  value2  >>  5; 
value2  =  value2  8c  037; 
value2  8  val ue2  •  msmask; 
valuel  8  valuel  5  xlsmask; 
value3  =  value4; 
value3  8  value3  8c  037; 
value4  8  value4; 
value4  =  value4  >>  5; 
value4  8  value4  8c  037; 
value4  8  value4  !  msmask; 


value3  =  value3  !  ylsmask; 


i  =  —1;  /*  need  to  start  at  — 1,  so  when  incremented  will  start  at  O  */ 
-Flag  =  0; 

i-f  (value4  !=  tmpxyz C03)  /*  value4  =  hi  y  */ 

< 

i  =  i  +  l; 
aryCi 3  =  value4; 

> 

i-f  (value3  !=  tmpxyz Cl  3)  /*  value3  =  lo  y  */ 

< 

i  =  i  +  l; 
aryCi 3  =  value3; 

-flag  =  1;  /*  lo  y  set  i-f  -flag  =  1  */ 

> 

i-f  (value2  !  =  tmpxyzC23)  /*  value2  =  hi  x  */ 

i-f  (-flag  ==  O)  /*  lo  y  not  already  set  */ 

{ 

i  =  i  +  1$ 
aryCi 3  —  value3$ 

> 

i  ■  i  +  l; 
aryCi 3  —  value2; 

> 

i  =  i  +  1;  /*lox  always  set  */ 
aryCi 3  =  valuel; 

tmpxyz C03  =  value4;  /*  keep  current  bytes  -for  next  comparison  */ 
tmpxyzt 13  *  value3; 
tmpxyz C23  =  value2; 

i  =  i  +  l;  /*  need  to  add  1,  since  arrays  and  counters  are  off  by  1  */ 
out  14 (i , ary) ; 

< 

/#******#****#*************#*********#******•*****#***#********#******* 


*  * 

*  date:  12  oct  83  * 

*  version:  1.0  * 

*  name:  charhp (pascal ) ,  chrhp_ (fortran  77)  * 

*  description:  writes  a  string  of  characters  (up  to  80)  on  the  * 

*  hp7220a  * 

*  operating  system:  VAX  11/780  UNIX  * 

*  language:  c  * 

*  inputs:  n/a  * 

*  outputs:  graphics  command  to  write  string  * 

*  global  variables  used:  n/a  * 

*  global  variables  changed:  n/a  * 

*  global  tables  used:  n/a  * 

*  library  routines:  n/a  * 

*  files  read:  n/a  * 

*  files  written:  n/a  * 

*  modules  called:  outhp  * 

*  calling  modules:  pchar  * 

*  author:  Capt  John  W.  Taylor  * 


•def i ne  ETX  '/003' 
charhp (nun, out ary ) 
int  *num) 
char  outary Cl; 

C 

int  i ; 

char  aryC43;  /*  array  to  hold  characters  */ 
aryCOl  =  ’L’; 
ary Cl D  =  ' B’ ; 

outhp <2, ary) ;  /*  set  hp  to  alpha  mode  */ 
i  =  *num; 

outhp (i , outary) ;  /*  write  text  string  */ 
aryCOl  =  ETXS  /*  ETX  control  character  */ 
outhp (1, ary) ;  /*  pen  up  */ 


chr hp_  <  nun , out ar y ) 
int  «num; 
char  outary C 3; 

C 

charhp (nun, outary ) $ 

> 

/**********************************************************************1 


*  date:  12  act  83  4 

*  version:  1.0  ( 

*  name:  crosshp  (pascal )  ,  crshp_  (-fortran  77)  4 

*  description:  this  procedure  returns  the  x,y  coordinates  of  the  4 

*  the  hp7220a.  a  delay  can  be  made  to  read  the  keyboard  4 

*  character (O=no  delay,  read  x,y  pen  position  immediatel  y4 

*  l=delay,  wait  for  keyboard  character,  then  4 

*  read  x,y  pen  position  4 

*  operating  system:  VAX  11/780  UNIX  4 

*  language:  c  4 

*  inputs:  x,y  coordinates  from  hp7220a  4 

4*’  outputs:  n/a  4 

*  global  variables  used:  n/a  4 

44  global  variables  changed:  n/a  4 

44  global  tables  used:  n/a  4 

44  library  routines:  n/a  4 

44  files  read:  n/a  4 

44  files  written:  n/a  4 

44  modules  called:  outhp,  offhp,  onhp  4 

44  calling  modules:  pcread  4 

44  author:  Capt  John  W.  Taylor  4 

44  4 

444444444444**44***44**44*44*  444444*  44  *  *****444444*444444 444444444444 ************************44***  > 

#include  <sys/ioctl .h> 

•include  <sgtty.h> 

•include  <stdio.h> 

•include  <signal.h> 


crosshp  <x , y, icnt , d) 

int  *xi  /*  x  coordinate,  range  0-16000  */ 
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i  *  »  *  •  *  « •  ■  ■  • 1 


i 


int  *y;  /*  y  coordinate,  range  0-11400  */ 
int  *icnt;  /*  keyboard  character  */ 
int  *d;  /*  delay,  0=no  delay,  l=delay  */ 

extern  float  bgrp_CI; 

struct  sgttyb  iostr; 

int  n,  of lags,  (*istat)(); 

char  aryC3I;  /*  array  of  characters  */ 

char  *buf,  *calloc() ,  If lag; 

if  (*d  =*  1)  /*  delay  to  read  keyboard  character  */ 

offhpO  ;  /*  take  hp7220a  offline  for  read  */ 

read ( 1 , icnt , 1 ) ;  /*  delay  and  read  keyboard  character  *7 

onhpO;  /*  put  hp7220a  back  online  */ 

> 

else  *icnt  =  O;  /*  set  icnt  to  0,  no  delay  used  */ 


buf  =  cal loc ( lOO, sizeof (*buf ) ) ; 
i stat=si gnal (SI6INT, SIG_IGN) $ 
ioctl  (O,  TIOCGETP,  Seiostr); 
of lags  -  iostr. sg_f lags; 
iostr . sg_f lags  '’'ECHO; 
i ostr . sg_f 1 ags  ! =  CBREAK; 
ioctl (O,  TIOCSETP,  kiostr); 
aryCOH  -  ’O'; 
ary C 1 3  =  'A'; 
aryC2 J  -  ’ 

outhp (3, aryl ;  /*  get  x,y  coordinates, 
gets (buf);  /*  0=pen  up,  l*pen  down 
iostr. sg_f lags  =  of lags; 
ioctl  <0,  TIOCSETP,  Sciostr); 
n  -  sscanf  (buf ,  "Xld,7.1dH,  x,  y); 
free (buf ) ; 

istat— signal (SIGINT, istat ) ; 


and  pen  status  */ 
*/ 


crshp_(x,y, icnt,d) 
int  *x,*y,*icnt,*d; 

crosshp (x , y, icnt ,d) $ 

> 

/a********************************************************************** 
*  # 

*  date:  12  oct  S3  * 

*  version:  1.0  * 

*  nane:  ini thp (pascal ) ,  inthp_ (fortran  77)  * 

*  description:  initializes  the  hp7220a,  pen  up  is  the  default  * 

*  operating  system:  VAX  11/780  UNIX  * 

*  language:  c  * 

*  inputs:  n/a  * 

*  outputs:  graphcis  command  to  terminate  hp7220a  * 

*  global  variables  used:  n/a  * 

*  global  variables  changed:  n/a  * 

*  global  tables  used:  n/a  * 
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for(i=0|  i<5;  i++) 
aryCi 1  =  '  '? 
temp  =  *x ; 

sprintf (ary, "%d", temp) $ 
outhp <5, ary) |  /*  *x  coordinate  */ 
aryCOl  =  ' , ' ; 
outhp  < 1 , ary) ; 
for(i~0|  i<5;  i++) 
aryCi 3  -  '  ’  | 

temp  =  *y| 

sprint-f  (ary,  ”%d",  temp)  $ 

outhp (5, ary) |  /«  *y  coordinate  */ 

aryCOl  -  ’*'1 

outhp  < 1 , ary) $ 


linhp_(x,y) 
int  *x,  *y| 
t 

linehp(x,y); 

> 

/********************************************************************** 

* 

*  date:  12  oct  83 

*  version:  1.0 

*  name:  movehp (pascal ) ,  mvehp_ (fortran  77) 

*  description:  moves  the  current  hp7220a  pen  to  the  specified  x,y 

*  coordinate  with  the  pen  up 

*  operating  system:  VAX  11/780  UNIX 

*  language:  c 

*  inputs:  n/a 

*  outputs:  graphics  command  to  move  hp7220a  pen 

*  global  variables  used:  n/a 

*  global  variables  changed:  n/a 

*  global  tables  used:  n/a 

*  library  routines:  n/a 

*  files  read:  n/a 

*  files  written:  n/a 

*  modules  called:  outhp 

*  calling  modules:  pmovab,  pchar,  pplace 

*  author:  Capt  John  W.  Taylor 

* 

*********************************************************************** 
movehp (x,y) 
int  *x,  »yj 
i 

int  tempi  /*  temporary  coordinate  */ 
int  i  1 

char  aryC51|  /*  array  to  hold  coordinate  */ 
aryCOl  ■  'P'l  /*  pen  up  */ 


ary Cll  -  *U’| 
ary C 2 3  «  ’  |  *  | 
outhp (3, ary) | 
aryCOl  -  'P'l 
arytlJ  -  ’A’l 


/*  move  to  specified  location  */ 


outhp (2, ary  >  $ 

•for  (i*0;  i<5;  i++> 
aryCi 3  -  '  ’  ; 
temp  =*  *x; 

sprint-f  (ary,  "%d",  temp)  $ 
outhp (5, ary) ;  /*  *x  coordinate  */ 
ary CO]  ■  ’ 
outhp (1, ary) ; 
for  (i*0»  i<5»  i++) 
aryCi 1  -  '  ’ ; 
temp  *  *y; 

sprintf (ary, MXdn , temp) ; 

outhp (5, ary) ;  /*  *y  coordinate  */ 

aryCO]  - 

outhp (1, ary) $ 


mvehp  _(*,y> 
int  *x,  *yj 
< 

movehp (x , y ) $ 

> 

/*********#****1Ht«*#*#***«********************************************** 


*  * 

*  date:  12  oct  83  # 

*  version:  1.0  * 

*  name:  of fhp (pascal ) ,  of fhp_ (fortran  77)  * 

*  description:  takes  the  hp7220a  offline  * 

*  operating  system:  VAX  11/780  UNIX  * 

*  language:  c  * 

*  inputs:  n/a  * 

*  outputs:  graphics  command  to  take  hp7220a  offline  * 

*  global  variables  used:  n/a  * 

*  global  variables  changed:  n/a  * 

*  global  tables  used:  n/a  * 

*  library  routines:  n/a  * 

*  files  read:  n/a  * 

*  files  written:  n/a  * 

*  modules  called:  outhp  • 

*  calling  modules:  pinit,  perase,  escapedd  * 

*  author:  Capt  John  W.  Taylor  * 

*  * 


*«********•**••******«#**********«*#*********************************•*/ 
•define  ESC  ’/033’ 
of fhp ( ) 

C 

char  aryC33|  /*  array  to  hold  characters  */ 
aryCO]  *  ESC;  /*  ESC  control  character  */ 
aryCi]  «  ’.’f 
ary C2]  -  ’)'; 

outhp (3, ary) ;  /*  take  hp  offline  */ 

> 


of fhp_() 

< 


offhpo; 


> 

/eaeeeeeeaaaeaaaaaaaaeaaaaaaaaaaaaaaaaaaaaaaeaaaaaaaeaeaeeaeeeeaeeeeeeeii 


*  « 

a  date:  12  act  83  * 

*  version:  1.0  4 

*  name:  onhp  < pascal  )  ,  onhp_  (-fortran  77)  * 

*  description:  places  the  hp7220a  online  « 

*  operating  system:  VAX  11/780  UNIX  ♦ 

*  language:  c  * 

a  inputs:  n/a  « 

*  outputs:  graphics  command  to  place  hp7220a  online  * 

*  global  variables  used:  n/a  * 

*  global  variables  changed:  n/a  H 

*  global  tables  used:  n/a  -N 

*  library  routines:  n/a  4 

*  files  read:  n/a  M 

*  files  written:  n/a  M 

*  modules  called:  outhp  * 

*  calling  modules:  pinitf  perase,  escapedd  I 

*  author:  Capt  John  W.  Taylor  -M 


a**********************************************************************, 
♦define  ESC  ' /033’ 
onhp  (  ) 
l 

char  aryC3l;  /*  array  to  hold  characters  a/ 
aryCOl  =  ESC;  /*  ESC  control  character  a/ 
aryt 11  * 
ary C21  ■  ’ ('5 

outhp (3, ary) ;  /*  put  hp  online  */ 

> 

onhp_ ( ) 
onhp  < ) $ 

> 

/<•#*«**»•«******•**•*****«*********«**•*«•»«*«*»***»**#**•**»*•»*•***• 

a 

a  date:  12  act  83 

*  version:  1.0 

*  name:  outhp 

*  description:  central  output  routine  for  the  hp7220a,  allowing 

*  up  to  a  maximum  baud  rate  of  2400 
a  operating  system:  VAX  11/780  UNIX 

*  language:  c 

a  inputs:  n/a 

a  outputs:  writes  out  commands  from  other  routines 

*  global  variables  used:  n/a 

*  global  variables  changed:  n/a 

a  global  tables  used:  n/a 

*  library  routines:  n/a 
a  files  read:  n/a 

*  files  written:  n/a 
a  modules  called:  n/a 


*  calling  Modules:  charhp, crosshp,  ini thp,  1  inehp,of f hp, onhp , movehp ,  * 

*  penhp, selectpenhp, si zehp, termhp  * 

*  author:  Capt  John  W.  Taylor  * 

*  « 
***********************************************************************/ 
#include  <sgtty.h> 

iinclude  <sys/ioctl .h> 

#include  <stdio.h> 

# include  <signal.h> 


outhp (n , i char ) 

int  n;  /*  number  o-f  characters  in  array  */ 

int  icharCl;  /*  array  o-f  characters  */ 

< 

static  int  bu-ffree  =  100;  /*  some  initial  space  required  to  turn  on  */ 

struct  sgttyb  iostr; 

char  *bu-f  ,*cal  loc  (  )  ,  inbu-f  C 101 S 

int  i  ,  j  ,  <*istat)  <)  ,o-f  lags;  char  1-flag; 


j  *  n; 

bu-f  =  cal  loc  ( j  , sizeof  (*buf  >  )  ; 
for(i=0;  i<j;  i++) 
bu-f  C  i  3=i  char  C  i  1 ; 

■for<i=0;  bu-ffree  <  j+10;  i++) 

{  /*  wait  for  enough  room  in  buffer  */ 

buffree  —  100;  /*  in  case  awakened  by  interrupt  */ 

if  <i >0) 

sleep (30);  /*  at  least  30  seconds  of  data  in  buffer  */ 
istat=signal (SIBINTjSIG  IGN) ;  /#  ignore  interrupts  */ 
ioctl  (O,  TIOCGETP,  Sciostr); 
oflags  =  iostr. sg_f lags; 
iostr . sg_f lags  &=  ~ECHO; 
iostr .sg_f lags  ! =  CBREAK; 
ioctl (O,  TI0CSETP,  &iostr); 

printf ("/033.B" ) ;  /*  request  buffer  space  */ 

gets (inbuf ) ; 

iostr .sg_f lags  =  oflags; 
ioctl  (O,  TI0CSETP,  Sciostr); 

istat**signal  (SIGINT, istat ) ;  /*  allow  interrupts  */ 


/*  allow  interrupts  */ 


sscanf  (inbuf ,  ” Z.d " ,  Scbuf  free) ; 


buffree  -■  j ; 

write(2, ichar,n) ;  /#  write  data  to  hp7220a  */ 
freeibuf ); 

> 

/*******************^ **************************************************** 


date:  16  oct  83 
version:  1.0 

name:  penhp (pascal ) ,  penhp_ (fortran  77) 

description:  place  the  hewlett  packard  pen  in  the  up  or  down 
position  (0*pen  up,  l=pen  down) 
operating  system:  VAX  11/780  UNIX 
language:  c 
inputs:  n/a 
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*  outputs:  n/a 

*  global  variables  used:  n/a 

*  global  variables  changed:  n/a 

*  global  tables  used:  n/a 

*  library  routines:  n/a 

*  -files  read:  n/a 

*  files  written:  n/a 

*  modules  called:  outhp 

*  calling  Modules:  n/a 

*  author:  Capt  John  W.  Taylor 

* 

*********************************************************************** 
penhp (nun) 

int  *num$  /*  O  =  pen  up,  1  =  pen  down  */ 

< 

char  aryC33;  /*  array  to  hold  characters  #/ 
ary COD  *  ’P'S 

if  (*num  *»  1)  /*  pen  down  */ 


if  (*nuM  1)  , 
aryCll  =  'D’S 


/*  pen  up,  default  */ 


else 

aryCll  =*  »u 
aryC23  -  ’ ; ’ ; 
outhp (3, ary) ; 


penhp _ (nun) 
int  *numS 
C 

penhp (nun) ; 

> 


*  date:  12  oct  83 

*  version:  1.0 

*  nawe:  selectpenhp (pascal ) ,  spnhp_ (fortran  77) 

*  description:  selects  the  specified  hp7220a  pen  (1-4  possible) 

*  0  means  return  current  pen  to  its  bin  holder 

*  operating  system:  VAX  11/780  UNIX 

*  1 anguage:  c 

*  inputs:  n/a 

*  outputs:  graphics  command  to  select  or  return  pen 

*  global  variables  used:  n/a 

*  global  variables  changed:  n/a 

*  global  tables  used:  n/a 

*  library  routines:  n/a 

*  files  read:  n/a 

*  files  written:  n/a 

*  modules  called:  outhp 

*  calling  modules:  pinit,  escapedd,  termhp 

*  author:  Capt  John  W.  Taylor 

* 

*********************************************************************** 
selectpenhp (num) 
int  *numj 


char  aryC4j;  /*  array  to  hold  characters  */ 

int  i;  /*  temporary  holder  of  *hppen  */ 

char  tempC21;  /*  character  number  o-f  *hppen  */ 


ary C 0 1  -  ’S'?  /*  select  1-4  pens  */ 
ary C 1 3  =  ’P'; 
i  =  *num; 

sprintf  (temp,  "Xd1*,  i  )  ;  /*  convert  pen  to  character  */ 
aryC23  =  tempCOl; 
ary C31  = 
outhp (4, ary) ; 


spnhp_(num) 
int  *num; 

< 

selectpenhp (num) ; 

> 

/**********************************************************************^ 

*  4 

*  date:  16  oct  83 

*  version:  1.0  * 

*  name:  sizehp  (pasal  )  ,  si  zhp_  (-fortran  77)  i 

*  description:  set  the  character  size  on  the  hewlett  packard 

*  width  =  centimeters  -128.000  to  +127.999  i 

*  height  =  centimeters  -128.000  to  +127.000  i 

*  operating  system:  VAX  11/780  UNIX  * 

*  language:  c  < 

*  inputs:  n/a 

*  outputs:  n/a 

*  global  variables  used:  n/a 

*  global  variables  changed:  n/a 

*  global  tables  used:  n/a 

*  library  routines:  n/a 

*  -files  read:  n/a 

*  files  written:  n/a 

*  modules  called:  outhp 

*  calling  modules:  n/a 

*  author:  Capt  John  W.  Taylor 

* 

*************************************************♦*********************/ 
sizehp (width, height) 

double  *width$  /*  width  of  character  in  centimeters  */ 
double  -Nheightf  /*  height  of  character  in  centimeters  */ 

< 

char  aryC81;  /*  array  to  hold  numbers  and  characters  */ 

aryCOl  ■  ’S’i 

aryCll  *  'I' I 

outhp (2, ary) ; 

sprintf (ary, "Xf ", *width) ; 

outhp (8, ary) $ 

aryCOl  = 

outhp (l,ary) I 

sprintf (ary, "Xf ”,*height) ; 
outhp (8, ary) ) 


.•  V  *.•  V.  ** 
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*v  **.  * 


on 


aryCOl  =  'S'; 
outhp (1, ary) $ 


sizhp_(wi dth, height) 
double  *width,  *height$ 

C 

sizehp (width, height) ? 

> 

/*********************************************************************** 

«  * 

*  date:  12  oct  83  * 

*  version:  1.0  * 

*  name:  termhp (pascal ) ,  trmhp_ (fortran  77)  * 

*  description:  terminates  the  hp7220a,  pen  up  is  the  default  * 

*  operating  system:  VAX  11/780  UNIX  * 

*  language:  c  * 

*  inputs:  n/a  * 

*  outputs:  graphics  command  to  terminate  hp7220a  * 

*  global  variables  used:  n/a  * 

*  global  variables  changed:  n/a  * 

*  global  tables  used:  n/a  * 

*  library  routines:  n/a  * 

*  -files  read:  n/a  * 

*  files  written:  n/a  * 

*  modules  called:  selectpenhp,  outhp  * 

*  calling  modules:  pterm  * 

*  author:  Capt  John  N.  Taylor  * 


*•******«*’****-****************#*****«***********«******«***************/ 
termhp (nun) 
int  *num; 

C 

char  aryC63)  /*  array  to  hold  characters  */ 


ary CO]  -  'I'j  /* 
ary C 1 D  =  *  N*  5 
aryC23  -  *  S’S 
aryC33  -  ’P’S  /* 
ary C43  *  ’U’S 
aryCS]  -  ’S’S 
outhp (6, ary) ; 

*num  =  Oj 
selectpenhp (num) S 


/*  initialize  hp  */ 


/*  pen  up  */ 


trmhp_ (num) 
int  *  num; 

termhp (num) ; 

> 

/********************************************************************** 


date:  12  oct  83 
versi on :  1.0 


*  name:  alphaS50 (pascal ) ,  alp50_ (fortran  77) 

*  description:  places  the  visual  550  into  alpha  mode 

*  operating  system:  VAX  11/7&0  UNIX 

*  language:  c 

*  inputs:  n/a 

*  outputs:  graphics  command  to  put  the  visual  550  into  alpha  mode 

*  global  variables  used:  n/a 

*  global  variables  changed:  n/a 

*  global  tables  used:  n/a 

*  library  routines:  n/a 

*  files  read:  n/a 

*  files  written:  n/a 

*  modules  called:  out550 

*  calling  modules:  n/a 

*  author:  Capt  John  W.  Taylor 

* 

*********************************************************************** 
#define  US  ' /037* 
alpha550( ) 

€ 

char  ary [23;  /*  control  character  array  */ 
ary COl  =  US; 

out 550(1, ary ) ;  /*  US  control  character  */ 

> 

al p50_ ( ) 

[ 

alpha550 ( ) ; 

> 

/**********************************************************************< 


date:  12  oct  83 
version:  1.0 

name:  char 550 (pascal ) ,  chr50_ (fortran  77) 

description:  writes  a  string  of  characters  (up  to  80)  to  the 
vi sual  550 

operating  system:  VAX  11/780  UNIX 
language:  c 
inputs:  n/a 

outputs:  string  of  characters  to  the  visual  550 

global  variables  used:  n/a 

global  variables  changed:  n/a 

global  tables  used:  n/a 

library  routines:  n/a 

files  read:  n/a 

files  written:  n/a 

modules  called:  out 550 

calling  modules:  n/a 

author:  Capt  John  W.  Taylor 


****#*****#*******************#*#*********************#***************«/ 
char 550 (nun, outary) 
int  *num; 
char  outaryC3| 

< 


int  i;  /*  integer  to  pass  to  output  routine  */ 
i  =  *num$  /*  output  routine  will  not  accept  *  */ 
out 550 (i , outary) ; 

> 

chr50_ (nun, outary) 
int  *nuni 
char  outaryCl; 
t 

char 550 (num,  outary)  ; 

> 

/*********************************************************************** 


*  * 

*  date:  12  oct  83  * 

*  version:  1.0  * 

*  name:  clr550 (pascal )  ,  clr50_ (fortran  77)  * 

*  description:  clears  the  visual  550  screen  * 

*  operating  system:  VAX  11/780  UNIX  * 

*  language:  c  * 

*  inputs:  n/a  * 

*  outputs:  graphics  command  to  clear  the  tk4014  screen  # 

*  global  variables  used:  n/a  * 

*  global  variables  changed:  n/a  * 

*  global  tables  used:  n/a  * 

*  library  routines:  n/a  * 

*  -files  read:  n/a  * 

*  files  written:  n/a  * 

*  modules  called:  out 550  * 

*  calling  modules:  n/a  * 

*  author:  Capt  John  W.  Taylor  * 

*  * 


*************•*****************«********************************-******«-/ 
ftdefine  ESC  ’ /033' 
ttdefine  FF  '/014' 

char  tmpxyzC31;  /*  global  array  to  hold  3  bytes  used  for  comparisons  */ 

clrSSOO 

C 

char  aryC21;  /*  array  to  hold  characters  */ 
aryCOl  =  ESC$  /*  ESC  control  character  */ 
arytll  =  FF;  /*  FF  control  chracter  */ 
out 550 (2, ary ) ; 

tmpxyzCOl  =  ESC;  /*  clear  buffer  */ 
tmpxyzCll  =  ESC; 
tmpxyzC21  =  ESC; 

> 

clr50_ ( ) 

€ 

c 1 r 550 ( ) ; 

> 

/*#*#**********************#******************************************** 
*  * 

*  date:  12  oct  83  * 

*  version:  1.0  * 

*  name:  cross550 (pascal ) ,  crs50_ (fortran  77)  * 


description:  reads  the  cross  hair  position  in  x,y  coordinates  on 
the  visual  550,  plus  returns  the  character  used  to 
initiate  the  read 

operating  system:  VAX  11/780  UNIX 
language:  c 

inputs:  x,y  coordinates  from  the  visual  550,  character  used  to 
initiate  the  read 
outputs:  n/a 

global  variables  used:  n/a 
global  variables  changed:  n/a 
global  tables  used:  n/a 
library  routines:  n/a 
files  read:  n/a 
files  written:  n/a 
modules  called:  out 550 
calling  modules:  n/a 
author:  Capt  John  W.  Taylor 


***********************************************************************/ 

(♦define  ESC  ’  /033' 

ttdefine  SUB  ’ /032’ 

cross550 (x , y , icnt) 

int  *x,  *y,  *icnt; 

char  aryC53; 
int  i  ; 


/*  turn  on  cross  hair  #/ 

aryCOD  *  ESC;  /*  ESC  control  character  */ 
aryllJ  =  SUB;  /*  SUB  control  character  */ 
out550 (2, ary ) ; 


/*  get  characters  from  screen  */ 
i  =  read ( 1 , ary, 5) ; 


if  <i  ==  1)  /*  carriage  return  used  here  */ 

€ 

read (1, ary, 5) ;  /*  another  read  necessary  since  carriage 

return  used  */ 

/*  convert  screen  characters  to  x,y  */ 

*x  *  <  (aryCOH  St  037)  *32  +  (aryCll  Sc  037) ) ; 

*y  =  ( <aryC23  St  037)*32  +  <aryC3J  Sc  037)); 

♦icnt  =  ’ 

> 

else  /*  any  other  key  used  here  */ 

< 

/*  convert  screen  characters  to  x,y  */ 

*x  *  <  (ary C 1 1  St  037)  *32  +  <aryC21  St  037)); 

*y  *  (  (aryC3D  Sc  037)*32  +  <aryC43  Sc  037)); 

♦icnt  =  aryCOD; 

> 


if  <i  “  1)  /*  carriage  return  used  here  */ 

read  < 1 , ary, 5) ; 

else  /*  any  other  key  used  */ 
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* 


date:  12  oct  83 
version:  1.0 

name:  graph550 (pascal ) ,  gph50_ (fortran  77) 
description:  puts  the  visual  550  into  graphics  mode 
operating  system:  VAX  11/780  UNIX 
language:  c 
inputs:  n/a 

outputs:  graphics  command  to  visual  550  to  put  into  graphics  modi 

global  variables  used:  n/a 

global  variables  changed:  n/a 

global  tables  used:  n/a 

library  routines:  n/a 

files  read:  n/a 

files  written:  n/a 

modules  called:  out550 

calling  modules:  move550 

author:  Capt  John  W.  Taylor 


lefine  GS  ' /035” 
aphSSOO 


*  global  variables  changed:  n/a  * 

*  global  tables  used:  n/a  * 

*  library  routines:  n/a  * 

*  -files  read:  n/a  * 

*  -files  written:  n/a  * 

*  nodules  called:  out 550  * 

*  calling  modules:  n/a  * 

*  author:  Capt  John  W.  Taylor  * 

*  * 


***********«^*******#**********************************-*********#**-iH(-**/ 

#deF i ne  ESC  ’ /033” 

#def ine  FF  ’ /014’ 

char  tmpxyzC32;  /*  global  array  to  hold  3  bytes  used  For  comparisons  */ 
init550  0 
C 

char  aryC21;  /*  array  to  hold  characters  */ 
aryCOl  =  ESC;  /*  ESC  control  character  •*/ 
aryCll  =  FF;  /*  FF  control  character  */ 
out 550 (2, ary ) ; 

tmpxyzCOH  =  ESC;  /*  clear  buFFer  */ 
tmpxyzCll  =  ESC; 
tmpxyzC21  =  ESC; 

> 

int50_0 

F 

init550<)  ; 

> 

/*********-!HHt*********»*******************************#**********-**«-**** 


*  * 

*  date:  12  oct  83  * 

*  version:  1.0  * 

*  name:  1 ine550 (pascal ) ,  1 in50_ (Fortran  77)  * 

*  description:  draws  a  line  From  the  current  cursor  position  to  the  * 

*  speciFied  x,y  coordinate  on  the  visual  550  * 

*  operating  system:  VAX  11/780  UNIX  * 

*  language:  c  * 

*  inputs:  n/a  * 

*  outputs:  graphics  commands  to  draw  a  line  on  visual  550  * 

*  global  variables  used:  n/a  * 

*  global  variables  changed:  n/a  * 

*  global  tables  used:  n/a  * 

*  library  routines:  n/a  * 

*  Files  read:  n/a  * 

*  Files  written:  n/a  * 

*  modules  called:  tran550  * 

*  calling  modules:  n/a  * 

*  author:  Capt  John  W.  Taylor  * 

*  * 


**********#****************#*********************#*********************/ 

line550(x,y) 

int  *x,  *y; 

F 

tran550(x,y) ;  /*  translate  and  move  */ 

> 


1 in50_ (x , y) 
int  *x,  *y; 

1 ine550 (x ,  y)  ; 

> 

/*********#*#**#***********#*#****************#*#****************#*«-*#** 
*  * 

*  date:  12  oct  83  * 

*  version:  1.0  * 

*  name:  mode550  (pascal ) ,  mde50_  (-fortran  77)  * 

*  description:  turns  the  pixels  on  or  off  for  the  visual  550  terminal  * 

*  with  the  pixels  off,  lines  or  points  can  be  * 

*  selectively  deleted  * 

*  operating  system:  VAX  11/7B0  UNIX  * 

*  1 anguage:  c  * 

*  inputs:  n/a  * 

*  outputs:  graphics  command  to  turn  pixels  on  or  off  * 

*  O  =  pixels  on,  1  =  pixels  off  * 

*  global  variables  used:  n/a  * 

*  global  variables  changed:  n/a  * 

*  global  tables  used:  n/a  * 

*  library  routines:  n/a  * 

*  files  read:  n/a  * 

*  files  written:  n/a  * 

*  modules  called:  out550  * 

*  calling  modules:  n/a  * 

*  author:  Capt  John  W.  Taylor  * 

*  * 
********************************«^*******^*********-k-*-*******#**********/ 
#def ine  ESC  ' /033' 

mode550 <  num ) 

/*  this  procedure  turns  the  pixels  on  or  off  for  the  */ 

/*  visual  550  raster  terminal  */ 

/*  with  the  pixels  off,  lines  or  points  can  be  */ 

/*  selectively  deleted  */ 

/*  the  visual  550  terminal  is  assumed  (and  has)  to  */ 

/*  be  in  graphics  mode  when  accessing  this  procedure  */ 
int  *num$  /*  mode  of  pixels  */ 

/*  num  =  0  -  pixels  on  */ 

/*  num  =  1  -  pixels  off  */ 

C 

char  aryC4J;  /*  array  to  hold  output  characters  */ 
aryCO]  =  ESC;  /*  ESC  control  character  */ 
aryC  1 1  -  ’ /’; 
if  (*num  ==  0) 
aryC21  =  ’O’S 
else 

aryC21  =  ’ 1' ; 
ary  C3I  =  ’’d’; 
out 550 (4, ary ) ; 


mde50_ (num) 
int  *num; 
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>✓>:» 


S' 


mode550 (num) » 


o 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


date:  12  oct  83 
version:  1.0 

name:  move550 (pascal ) ,  mve50_ (fortran  77) 

description:  places  the  visual  550  cursor  at  a  specified  location 
operating  system:  VAX  11/780  UNIX 
language:  c 
inputs:  n/a 

outputs:  graphics  command  to  place  cursor  at  specified  location 

global  variables  used:  n/a 

global  variables  changed:  n/a 

global  tables  used:  n/a 

library  routines:  n/a 

files  read:  n/a 

files  written:  n/a 

modules  called:  graph550,  tran550 

calling  modules:  n/a 

author:  Capt  John  W.  Taylor 


**»*#****#****«****************************************************-****7 

move550(x,y) 

int  *x,  *y; 

C 

graph550 ( ) I  /*  set  vi sual  550  to  move  */ 
tran550 (x , y> $  /*  translate  and  move  */ 

J 


mve50_(x,y) 
int  *x,  *y» 
f 

move550 (x , y ) $ 

> 

/*********************************************************************** 


* 

* 

* 

* 

* 

* 


date:  12  oct  83 
version:  1.0 
name:  out 550 

description:  the  central  routine  that  outputs  graphics  commands 
to  the  visual  550 


* 

* 

* 

* 

* 

* 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

« 


VAX  11/780  UNIX 


operating  system: 
language:  c 
inputs:  n/a 

outputs:  write  command  to  output  characters 

global  variables  used:  n/a 

global  variables  changed:  n/a 

global  tables  used:  n/a 

library  routines:  n/a 

files  read:  n/a 

files  written:  n/a 

modules  called:  n/a 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 
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>*»■ 


■O.iV: 


•  '  s’  v  . 


*  calling  modules:  alpha550, char550, clr550, cross550, graph550, init550,  4 

*  1 i ne550, move550, si ze550, term550, tran550  4 

*  author:  Capt  John  W.  Taylor  * 

*  * 
************#**********************************************************/ 
out 550 (num, outary ) 

int  num;  /*  number  of  characters  in  array  */ 
char  outaryd;  /*  array  of  output  characters  */ 


i 

write (2, outary, num) ; 

> 

/a*******^**************************************#*****-****************** 


* 

a 

* 

date:  12  oct  83 

a 

# 

version:  1.0 

a 

* 

name:  si ze550 (pascal ) ,  si z50_ (fortran  77) 

a 

* 

description:  set  the  character  size 

on 

the  visual  550 

a 

* 

4  sizes  possible: 

a 

* 

1  ==  80  characters  by 

34 

lines  (default) 

a 

* 

2  =  40  characters  by 

17 

lines 

a 

* 

3  =  26  characters  by 

11 

lines 

a 

* 

4  =  20  characters  by 

8 

lines 

a 

* 

operating  system:  VAX  11/780  UNIX 

a 

* 

language:  c 

a 

* 

inputs:  n/a 

a 

* 

outputs:  n/a 

a 

* 

global  variables  used:  n/a 

a 

* 

global  variables  changed:  n/a 

a 

a 

global  tables  used:  n/a 

a 

a 

library  routines:  n/a 

a 

* 

files  read:  n/a 

« 

* 

files  written:  n/a 

* 

* 

modules  called:  out550 

a 

a 

calling  modules:  n/a 

* 

* 

author:  Capt  John  W.  Taylor 

a 

*  « 
a**********************************************************************/ 
ttdefine  ESC  '  /03311 


size550(num) 
int  «num{ 
l 

char  aryC2J; 

aryCOl  =  ESC; 

if  (*num  ==  4)  /a  20  characters  by  S  lines  */ 
aryCll  =  '3’; 

else  if  (*num  ==  3)  /*  26  characters  by  11  lines  a/ 
aryCll  =  ’2'; 

else  if  (*num  ==  2)  /a  40  characters  by  17  lines  a/ 
aryCll  =  'l”; 

else  /*  80  characters  by  34  lines,  default  */ 

aryCll  =  ’O' ; 

out 550 (2, ary) ; 

> 
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sizSO_ (nun) 
int  *num» 

< 

si ze550 (num)  ; 

J 

/**********************************************************************<( 


*  ( 

*  date:  12  oct  83  * 

*  version:  1.0  ■* 

*  name:  term550 (pascal ) ,  trm50_ (fortran  77)  * 

*  description:  terminates  the  visual  550  ■* 

*  operating  system:  VAX  11/780  UNIX  * 

*  language:  c  * 

*  inputs:  n/a  * 

*  outputs:  graphics  command  to  terminate  the  visual  550  * 

*  global  variables  used:  n/a  * 

*  global  variables  changed:  n/a  * 

*  global  tables  used:  n/a  < 

*  library  routines:  n/a  I 

*  files  read:  n/a  4 

*  files  written:  n/a  < 

*  modules  called:  outSSO  * 

*  calling  modules:  n/a  4 

*  author:  Capt  John  W.  Taylor  4 

*  4 


***********************************************************************> 
#def ine  ESC  ’ /OZ3’ 
ttdefine  FF  ’ /Ol4’ 

char  tmpxyz£31;  /*  global  array  to  hold  3  bytes  used  for  comparisons  */ 
ter m550 ( ) 

C 

char  ary £21;  /*  array  to  hold  characters  */ 
aryCOl  =  ESC;  /*  ESC  control  character  */ 
aryCll  =  FF;  /*  FF  control  character  */ 
out 550 (2, ary ) ; 

tmpxyzCOl  =  ESC;  /*  clear  buffer  */ 
tmpxyzEll  *  ESC; 
tmpxyz  £23  =  ESC; 

> 

trm50_ ( ) 
f 

term550() ; 

> 

/a********************************************************************* 

* 

*  date:  12  oct  83 

*  version:  1.0 

*  name:  tran550 

*  description:  translates  given  x,y  coordinate  values  into  x,y  high/ 

*  low  byte  character  values,  then  moves  to  the 

*  specified  location  on  the  visual  550 

*  operating  system:  VAX  11/780  UNIX 

*  language:  c 

*  inputs:  n/a 


*  outputs:  graphics  command  to  move  visual  550  cursor  * 

*  global  variables  used:  temp  * 

*  global  variables  changed:  temp  * 

*  global  tables  used:  n/a  * 

*  library  routines:  n/a  * 

*  -files  read:  n/a  * 

*  -files  written:  n/a  * 

*  modules  called:  out 550  * 

*  calling  modules:  line550,  move550  * 

*  author:  Capt  John  W.  Taylor  * 

*  « 
***********************************************************************/ 
char  tmpxyzC33;  /#  global  array  to  hold  3  bytes  used  -for  comparisons  */ 
tran550<x ,  y) 

int  *x,  *yS 

<. 

int  valuel, value2, value3, value4; 

char  aryC43;  /*  array  to  hold  characters  tor  actual  cursor  move  */ 
int  tlag;  /*  determine  it  lo  y  set,  O=not  set,  l=set  */ 
int  i;  /*  counter  */ 

#det i ne  msmask  040 
#detine  xlsmask  0100 
#detine  ylsmask  0140 
valuel  =  *x ; 
value4  —  *yj 
value2  =  valuel; 
valuel  =  valuel  &  037; 
value2  =  value2; 
value2  =  value2  >>  5; 
value2  *  value2  &  037; 
value2  =  value2  i  msmask; 
valuel  =  valuel  S  xlsmask; 
value3  =  value4; 
value3  *  value3  &  037; 
value4  -  value4; 
value4  =  value4  >>  5; 
value4  =  value4  8c  037; 
value4  =  value4  !  msmask; 
value3  *  value3  I  ylsmask; 


i  =  — l;  /*  need  to  start  at  -1,  so  when  incremented  will  start  at  0  */ 
tlag  =  0; 

it  (value4  !=  tmpxyzCOl)  /*  value4  =  hi  y  */ 
t 

i  =  i  +  l; 
aryCil  =  value4; 

> 

it  <value3  !=  tmpxyzdl)  /*  value3  =  lo  y  */ 

i  =  i  +  l; 
aryCil  =  value3; 

tlag  -  1;  /*  lo  y  set  it  tlag  =  1  */ 

> 

it  <value2  !*  tmpxyzC21)  /*  value2  =  hi  x  */ 
i 
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^  \  * 


*.  i-  o  < 


if  (flag  O)  /*  lo  y  not  already  set  */ 

< 

i  »  i  +  U 
aryCil  =  value3; 

> 

i  *  i  +  1* 
aryCil  *  value2$ 

> 

i  ■  i  +  1}  /*  lo  x  always  set  */ 

ary  C  i 1  *  valuel; 

tmpxyzCOl  =  value4;  /*  keep  current  bytes  for  next  comparison  */ 
tmpxyzCl]  =  value3; 
tmpxyzC21  =  value2; 

i  ■  i  ♦  1;  /*  need  to  add  1,  since  arrays  and  counters  are  off  by  1  */ 
out550(i , ary) ; 
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Appendix  H 


VAX  11/780  and  CDC  6600  HP7220A  Cal.cgmg  Users  Manual.  Supplement 


Vax  11/780  Execution 

Setup  Visual  lOO  Terminal  to  run  HP  Plotter  Calcomp  Package 

1.  Set  "blue  box"  to  "61"  -  -for  9600  baud 

2.  Flip  the  "blue  box”  switch  on 

3.  Logon  to  Vax 

4.  Set  Visual  100  terminal  to  2400  baud 

a.  Depress  "setup"  key 

b.  Depress  “5“  key 

c.  T. Speed  set  to  “2400"  by  depressing  "7"  key 

d.  R. Speed  set  to  "2400”  by  depressing  "8"  key 

e.  Depress  “setup"  key 


Setup  HP  7220A  Plotter 

1.  Set  HP  plotter  to  "2400”  baud  by  adjusting  its  switch 
in  back  of  the  plotter 

2.  Turn  HP  plotter  on 
Compile  HP  Plotter  Package 

>-f77  "source  file"  hplot.o  plOio.o  <cr> 

Run  HP  Plotter  Package 

>a. out 

The  hplot.f,  hplot.o,  plOio.c,  and  plOio.o  source  and 
object  files  are  located  on  disk  drive  "Ul"  under  the 
user  id  of : 

jtaylor/hplotdir/hplot . f 

hplot.o 

plOio.c 

plOio.o 
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Compatibility/ Incompatibility  Examples 


FORTRAN  To  C  To  Pascal.  Examgl.e 

<*************************************************************** 


*  * 

*  date:  * 

*  version:  * 

*  name:  * 

*  description:  * 

*  operating  system:  UNIX  * 

*  language:  * 

*  inputs:  * 

*  outputs:  * 

*  global  variables  used:  * 

*  global  variables  changed:  * 

*  global  tables  used:  * 

a  library  routines:  * 

*  -Files  read:  * 

*  -Files  written:  * 

*  modules  called:  * 

*  calling  modules:  * 

*  author:  Capt  John  W.  Taylor  * 

*  * 
s******************************^*******************************) 


FORTRAN  MAIN  - >  C  SUBROUTINE  OR  - >  PASCAL  PROCEDURE  OR 

< -  FUNCTION  < -  FUNCTION 


f ortranmain. f  —  main  -Fortran  program 
program  -Fortmn 

c************************************************************* 
c  this  program  passes  data  to  a  pascal  routine  by 
c  interfacing  through  a  c  routine  -First,  then 
c  passing  data  back  from  the  pascal  routine  to 
c  the  fortran  program  once  again  through  the  c  routine 
c  no  actual  data  is  used  in  this  demonstration  program, 
c  this  program  just  shows  how  to  set  up  each  program  and 
c  routine  to  pass  variables 

C'lMt**************#***************##*#**#*#***********-********* 

integer  intary(lO) 
integer  intr 

double  precision  realary (10) 
double  precision  rel 

character  charary(lO)  or  charary*10 
character  chr 
logical  bolary(lO) 
logical  bol 

call  ctopascal (intary, intr, realary, rel , charary, chr, 
bolary , bol ) 


ctopascal .  c 


c  routine 


ctopascal _ (intary, intr , real  ary, rel , char ary, chr,bol ary, bol ) 
int  intary  Cl;  /*  c  arrays  start  at  O  not  at  1  */ 
int  *intr; 

double  real  ary  Cl;  /*  c  arrays  start  at  0  not  at  1  */ 
double  *rel ; 

char  char ary  Cl;  /*  c  arrays  start  at  0  not  at  1  */ 
char  *chr ; 

int  bol ary  Cl;  /*  c  arrays  start  at  O  not  at  1  */ 
int  *bol ; 

C 

pascal sub (intary, intr , real ry, rel , char ary, chr , bol ary, bol ) ; 

return (intary  Cl,  *intr,  real  ary  Cl,  *rel ,  char ary  Cl, 
♦chr,  bol ary  Cl,  *bol ) ; 

/*  return  only  used  if  the  c  routine  is 
called  as  a  function  */ 

> 


pascal sub. p  —  pascal  subroutine 
type 

intnum  =  array  Cl.. 101  of  integer; 
realnum  =  array  Cl.. 101  of  real; 
charstr  =  array  Cl.. 101  of  char; 
bolstr  *=  array  Cl..  101  of  boolean; 
procedure  pascal sub (var  intary  :  intnum; 

var  intr  :  integer; 
var  real ary  :  realnum; 
var  rel  :  real ; 

var  char ary  :  charstr; 
var  chr  :  char ; 

var  bol ary  :  bolstr; 
var  bol  :  boolean; 

begin 

end; 

how  to  compile  and  what  libraries  to  use 

>cc  -c  ctopascal. c  — compile  the  c  routine 

>pc  — c  pascal sub. p  — compile  the  pascal  routine 

>f77  ctopascal. o  pascalsub.o  f ortranmain. f  -Ipc  -lm  -lc 

— compile  the  main  fortran  program 


>a. out 


— to  execute  the  program 


Pascal.  To  C  To  FORTRAN  Example 


(***************************•»***************«■******************* 
*  * 

*  date:  * 

*  version:  * 

*  name:  * 

*  description:  * 

*  operating  system:  UNIX  * 

*  language:  * 

*  inputs:  * 

*  outputs:  * 

*  global  variables  used:  * 

*  global  variables  changed:  * 

*  global  tables  used:  * 

*  library  routines:  * 

*  -f  i  1  es  read :  * 

*  -files  written:  * 

*  modules  called:  * 

*  calling  modules:  * 

*  author:  Capt  John  W.  Taylor  * 

*  * 
■M-***************************************************-*-**********) 


PASCAL  MAIN  - >  C  SUBROUTINE  OR  (won’t  work)  FORTAN  SUBROUTINE 

< -  FUNCTION  OR  FUNCTION 


pascal main.p  -  main  pascal  program 
program  pastest ( i nput , output ) ; 

(*  this  program  does  not  work  on  the  present  VAX  UNIX  *) 

<*  system  due  to  FORTRAN  I/O  errors  occur ing  when  *) 

(*  a  FORTRAN  subroutine  is  called  by  a  C  subroutine.  *) 

<*  a  major  system  modification  is  needed  in  order  for  *) 

<#  this  example  program  to  work.  *) 

(*  this  program  would  pass  data  to  a  fortran  routine  by  *) 

(*  interfacing  through  a  c  routine  first,  then  *) 

<*  passing  data  back  from  the  fortran  routine  to  *) 

(*  the  pascal  program  once  again  through  the  c  routine.  *) 

(*  no  actual  data  is  used  in  this  demonstration  program,  *) 

<*  this  program  just  shows  how  to  set  up  each  program  and  #) 

<*  routine  to  pass  variables  *j 

type 

intnum  =  array  Cl.. 103  of  integer; 
realnum  =  array  Cl.. 103  of  real; 
charstr  =  array  Cl.. 103  of  char; 
bolstr  =  array  Cl.. 103  of  boolean; 
var 

intary  :  intnum; 
intr  :  integer; 
real  ary  :  realnum; 
rel  :  real ; 
char ary  :  charstr; 
chr  :  char; 
bolary  :  bolstr*; 
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bol  :  boolunj 
#include  * ctofortran.h’ 
begin 

ctof ortran (intary, intr, real ary, rel  ,charary,chr,bolary,bol  )  » 

(*  call  c  interface  to  fortran  *> 

(*  at  the  end  of  the  c  routine,  the  data  values 
will  be  returned  and  used  if  necessary  *) 

end. 


ctofortran.c  —  c  routine  (  won't  work,  system  I/O  error  ) 


ctof ortran (intary, intr , real  ary, rel , char ary, chr , bol ary, bol > 
int  intary  Ell  /*  c  arrays  start  at  0  not  at  1  */ 
int  *intr» 

double  real ary  Cl;  /*  c  arrarys  start  at  O  not  at  1  */ 
double  *rel ; 

char  char ary  Cl;  /*  c  arrays  start  at  0  not  at  1  */ 
char  *chr ; 

int  bol ary  Cl;  /*  c  arrays  start  at  0  not  at  1  */ 
i nt  *bol ; 
t 


callfor_()  ; 


a******************************** 
(does  not  work,  system  I/O  error) 
*************************#*«-***** 


return (intaryC 1, *intr , real ary C 1 , *rel ,chararyCl, 
*chr , bol ary C 1 , *bol ) ; 

/*  return  only  used  if  the  c  routine  is 
called  as  a  function  */ 

> 


call  for. f 


*#**••****««********«-»**«-»**«**** 
-  (does  not  work,  system  I/O  error) 
a******************************** 


subroutine  call for (intary, intr, real ary, rel , 

char ary, chr , bol ary, bol ) 

integer  intary (10) 
integer  intr 
real  realary(lO) 
real  rel 

character  charary(lO)  or  charary*10 

character  chr 

logical  bolary(lO) 

logical  bol 

return 

stop 


ctofortran.h  -  the  .h  include  file 

procedure  ctof ortran (var  intary  :  intnum; 

var  intr  :  integer; 

var  real ary  :  realnum; 


var  rel  :  ml ; 

var  char ary  :  charstr; 

var  chr  :  chart 

var  bolary  :  bolstr; 

var  bol  :  boolean);  external; 


how  to  compile  and  what  libraries  to  use 

>cc  — c  cto-fortran.c  — compile  the  c  routine 

>f77  — c  call  for.  -f  — compile  the  -fortran  routine 

>pc  cto-f  ortran.  o  cal  If  or.  o  pascal  main.p  — 1F77  -1177  — lc 

— compile  the  main  pascal  program 


>a.  out 


— to  execute  the  program 


Pascal  To  Pascal.  Example 


date: 

version: 

name: 

description: 

operating  system:  UNIX 

language: 

inputs: 

outputs: 

global  variables  used: 

global  variables  changed: 

global  tables  used: 

library  routines: 

files  read: 

files  written: 

modules  called: 

calling  modules: 

author:  Capt  John  W.  Taylor 


s****************************#*********************************) 


PASCAL  MAIN 


>  PASCAL  SUBROUTINE  OR 
FUNCTION 


pascal main.p  —  main  pascal  program 
pr ogr am  pastest ( i nput , output ) ; 

(*  this  pascal  program  shows  how  to  interface  to  another 

(#  pascal  routine 

type 

ary  *  packed  array  Cl.. 803  of  char; 


x , y  : ,  i nteger ; 
num  :  real ; 
out ary  :  ary; 

#include  ’passub.h’ 
begin 

passsub (x , y, num, outary ) i  <*  call  a  pascal  routine  *) 
end. 


passub.p  -  pascal  routine 
ftinclude  ’passub.h’ 
procedure  passub; 
begin 
x  :>=  0; 
y  :«  0; 
num  :=  100.0; 

outary  : =  ’Sample  character  string’; 
end ; 


passub.h  -  include  .h  file 


•  i  r 


procedure  passub(var  x,y  :  integer 

var  nun  :  real ; 

var  outary  :  ary);  external; 

how  to  compile  pascal  programs 

>pc  — c  passub.p  — compile  the  pascal  routine 

>pc  passub.o  pascal main.p  — compile  the  pascal  program 

>a.out  — how  to  execute  the  program 
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Duplicated  Variables  Created  when  Uni que 
Underscore  Identifier  Is  Reeoyed  frog  the 
University  of  Pennsylvania  Core  Variables 


************************************************************ 

University  of  Pennsylvania  variables  with  underscores  to 
create  a  unique  variable  name 

These  are  global  variables  used  by  all  pascal  procedures 


1.  def const. h  file  with  "const"  pascal  variables 
none 


2.  deftype.h  file  with  "type"  pascal  variables 

SEG.PTR 

PRIM.PTR 

OWNER  SEG 

NEXTPRIM 

PICK  ID 

LINEINDEX 

LINE_WIDTH 

LINE.STYLE 

TEXT_ INDEX 

POL Y_ I NTER I ORSTYLE 

POLYEDGE  STYLE 

FILL.INDEX 

VERTEX. INDICES 

SEG.TYPE 

SEG .NAME 

I MAGE. TRANS 

TRANS.LIMIT 

PRIM.LIST 

NEXT.SEB 

ESC.PTR 

ESC.REC 

N_ INTEGER 

N.REAL 

N.CHAR 

A_ INTEGER 

A.REAL 

A.CHAR 

PRIM.REC 

SEG  REC 

V I EW_ST ATE.REC 
W0RLD.MAT1 
WORLD  MAT2 


ENV_REC_PTR 

ENV_REC 

PR  I  M_SAVE 

SEG.SAVE 

VIEW.SAVE 

NEXT_ENV 

3.  extvar.h  -file  with  "var"  pascal  variables 

PRIM  ATTR 
SEG_ATTR 
LAST.SEGMENT 
LEFT  MARGIN 
VIEW_STATE 
EIMV_SAVE_PTR 
COLOR_T  ABLE 
DDREC 

OLD  TRANSFORM 
OLD  COLOR 
DDSTART 

a***********#****************************^##**************** 

Converted  pascal  variables  with  the  underscore  identifier 
removed  that  may  conflict  with  other  variables  already 
created  without  an  underscore  identifier  are  listed  below 

Possible  conflicts  arise  when  local  variable  names  are  created 
for  use  within  a  specific  procedure  where  the  global  variable 
is  also  used,  but  because  the  underscore  has  been  removed  from 
the  global  variables,  a  conflict  occurs 

The  underscore  has  to  be  removed  because  the  UNIX  Pascal 
will  not  accept  underscore  identifiers 

1.  PICKID  =  pickid  :  conflicts,  but  corrected  by  renaming 

the  local  variable  to  "pickidl"  in  the  following 
procedures 

pickxy 

awaitpick 

2.  SEGNAME  =  segname  :  conflicts,  but  corrected  by  renaming 

the  local  variable  to  " segname 1"  in  the  following 
procedures 

crrseg 
derseg 
renseg 
printseg 
ssvis 
sshi 1 t 
ssdet 
ssi tn2 
ssi tr2 
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I.  Tektronics  4014  User  Subroutines 


1.  alphal4  /  alpl4 

Purpose:  Enter  the  Tektronics  4014  into  alphanumerics  mode 
Calling  Sequence: 

Pascal:  alphal4; 

Fortran:  call  alpl4 

Programming  Considerations:  primarily  used  to  set  device 
into  alpha  mode  for  writing  text 

2.  char 14  /  chrl4 

Purpose:  Write  a  string  of  text  to  the  Tektronics  4014 

Calling  Sequence: 

Pascal:  charl4(num, out ary) f 

nun  :  integer;  -  number  of  characters  to  print 

ary  *  packed  array  Cl..??3  of  char; 

??  —  maximum  number  in  array 
outary  :  ary»  -  array  of  characters  to  output 

Fortran  77:  call  chr 14 (num, outary) 

integer  num  —  number  of  characters  to  print 
character  outary (??)  —  array  of  characters 
to  output 

??  —  maximum  number  in  array 

Programming  Considerations:  must  be  in  alpha  mode  when  using 
these  subroutines.  Characters  will  be  lost  if  they 
are  drawn  outside  the  limits  of  the  screen. 

3.  clr 14  /  clr 14 

Purpose:  Clears  the  Tektronics  4014  screen,  and  places  it 
into  alpha  mode 

Calling  Sequence: 

Pascal:  clr 14; 

Fortran:  call  clr 14 

Programming  Considerations:  Any  text  or  graphics  on  screen 
will  be  erased.  The  Tektronics  4014  will  now  be  in  the 
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alpha  Mode.  clrl4,  initl4,  and  termi4  do  the  same 
thing. 

crossl4  /  crsl4 

Purpose:  Reads  the  cross  hair  position  in  x,y  coordinates  on 
the  Tektronics  4014,  plus  it  returns  the  character 
from  the  keyboard  used  to  initiate  the  cross  hair 
read 

Calling  Sequence: 

Pascal:  crossl4 <x , y, icnt ) ; 

x  :  integer;  -  x  coordinate,  range  0—1023 
y  :  integer;  -  y  coordinate,  range  0-778 
icnt  :  integer;  -  keyboard  character  returned 

in  integer  format 


Fortran:  call  crsl4 (x , y , icnt > 

integer  x  -  x  coordinate,  range  0-1023 
integer  y  -  y  coordinate,  range  0-778 
integer  icnt  -  keyboard  character  returned 
in  integer  format 

Programming  Considerations:  Must  be  in  graphics  mode  when 

using  these  subroutines.  To  use,  the  cross  hairs  will 
appear  on  the  screen,  move  them  with  the  2  thumbwheels 
to  the  desired  position,  then  depress  any  keyboard 
character  to  initiate  the  read.  No  delay  need  be 
added,  the  system  will  automatically  wait  for  a 
keyboard  character  before  continuing. 

graphl4  /  gphl4 

Purpose:  Enter  the  Tektronics  4014  into  graphics  mode 

Calling  Sequence: 

Pascal:  graphl4; 

Fortran:  call  gphl4 

Programming  Considerations:  primarily  used  to  set  device 

into  graphics  mode  for  reading  the  cross  hairs,  drawing 
lines,  and  setting  the  character  size 

initl4  /  intl4 

Purpose:  Initializes  the  Tektronics  4014  screen,  and  places 
it  into  alpha  mode 


Cal ling  Sequence 


Pascal:  ini t 14; 


Fortran:  call  inti 4 

Programming  Considerations:  Any  text  or  graphics  on  screen 
will  be  erased.  The  Tektronics  4014  will  now  be  in 
the  alpha  mode.  clrl4,  initl4,  terml4  do  the  same 
thing. 

Iinel4  /  linl4 

Purpose:  Draw  a  line  -from  the  current  cursor  position  on  the 
Tektronics  4014  to  the  specified  x,y  coordinate 

Calling  Sequence: 

Pascal:  linel4(x,y); 

x  :  integer;  —  x  coordinate,  range  0—1023 
y  :  integer;  -  y  coordinate,  range  0—778 

Fortran:  call  linl4(x,y) 

integer  x  —  x  coordinate,  range  0-1023 
integer  y  -  y  coordinate,  range  0-778 

Programming  Considerations:  Must  be  in  graphics  mode  when 
using  these  subroutines.  The  very  first  linel4 
or  linl4  is  normally  preceded  by  movel4  or  mve 14 
to  fix  a  starting  point.  This  move  sets  up  the 
terminal  for  one  line,  or  a  series  of  connected  lines, 
to  be  drawn.  It  is  not  entirely  necessary  to  preceed 
the  very  first  line  with  a  move.  However,  when  in 
graphics  mode  and  not  preceding  the  very  first  line 
with  a  move,  then  the  very  first  line  may  or  may  not 
be  drawn  depending  on  the  state  of  the  terminal. 

Lines  will  be  clipped  or  lost  if  they  are  outside  the 
screen  limits. 

move 14  /  mve 1 4 

Purpose:  Move  the  current  Tektronics  4014  cursor  to  the 

specified  x,y  coordinates 

Calling  Sequence: 

Pascal:  movel4(x,y); 

x  :  integer;  -  x  coordinate,  range  0-1023 
y  :  integer;  —  y  coordinate,  range  0—778 

Fortran:  call  mvel4(x,y) 

integer  x  -  x  coordinate,  range  0-1023 
integer  y  -  y  coordinate,  range  0-778 


A 

FA 

fj* 


Programming  Considerations:  Do  not  have  to  be  in  graphics 

node  when  accessing  this  routine.  It  is  automatical ly 
placed  into  graphics  mode.  Normally  preceeds  the 
very  first  linel4  or  linl4.  Moves  can  occur  outside 
.  the  screen  limits  not  aborting  the  program,  but 

[a  affecting  characters  and  lines  drawn. 


[A 


9.  sizel4  /  siz  14 

Purpose:  Set  the  character  size  for  the  Tektronics  4014 
4  sizes  possible: 

1  =  74  characters,  35  lines  (default) 

2=81  characters,  38  lines 

3  =  121  characters,  58  lines 

4  =  133  characters,  64  lines 

Calling  Sequence: 

Pascal:  sizel4(num)$ 

num  :  integer;  -  number  (1—4)  to  set  character 

size 


Fortran:  call  siz 14 (num) 

integer  num  -  number  (1-4)  to  set  character 
size 

Programming  Considerations:  This  routine  does  not  have  to 
be  called  unless  the  character  size  needs  to  be  set 
to  other  than  the  default  value.  When  it  is  called, 
the  Tektronics  4014  must  be  in  graphics  mode. 

10.  term!4  /  trml4 


k 


Purpose:  Terminate  the  Tektronics  4014,  and  places  it  into 
alpha  mode 

Calling  Sequence: 

Pascal:  terml4; 

Fortran:  call  trml4 

Programming  Considerations:  Any  text  or  graphics  screen 
will  be  erased.  The  Tektronics  4014  will  now  be  in 
alpha  mode.  clrl4,  initl4,  and  terml4  do  the  same 
thing. 
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II.  Hewlett  Packard  7220A  Plotter  User  Subroutines 


charhp  /  chrhp 

Purpose:  Writes  a  string  of  characters  to  the  Hewlett 
Packard  plotter 

Calling  Sequence: 

Pascal:  charhp (nua, out ary) ; 

num  :  integer;  -  number  of  characters  to  output 

ary  =  packed  array  Cl..?? 3  of  char; 

??  -  maximum  number  in  array 
outary  :  ary;  -  array  of  characters  to  output 

Fortran:  call  chrhp (num, outary ) 

integer  num  —  number  of  characters  to  output 
character  outary (??) 

??  —  maximum  number  in  array 

Programming  Considerations:  An  "out  of  range"  error  will 
occur  and  cause  the  plotter  to  abort  if  the  x,y 
coordinates  of  the  plotter  are  exceeded (x  =  0-16000, 
y  =  0-11400).  The  plotter  must  be  online  when  using 
these  subroutines. 

crosshp  /  crshp 

Purpose:  Reads  the  x,y  coordinates  of  the  current  pen 
location  on  the  Hewlett  Packard  plotter.  A 
delay  can  be  made  to  read  the  keyboard  character. 

Calling  Sequence: 

Pascal:  crosshp (x,y, icnt,d) ; 

x  :  integer;  -  x  coordinate,  range  0-16000 
y  :  integer;  -  y  coordinate,  range  0—11400 
icnt  :  integer;  -  keyboard  character 
d  :  integer;  -  delay  0=no  delay,  1-delay 

Fortran:  call  crshp <x ,y, icnt, d) 

integer  x  -  x  coordinate,  range  0—16000 
integer  y  —  y  coordinate,  range  0—11400 
integer  icnt  -  keyboard  character 
integer  d  -  delay  O=no  delay,  lsdelay 

Programming  Considerations:  The  plotter  must  be  online  when 
using  these  subroutines.  To  move  the  pen,  use  the  5 


directional  arrows  on  the  plotter.  They  will  move  the 
pen  in  either  the  online  or  offline  mode. 

inithp  /  inthp 

Purpose:  Initializes  the  Hewlett  Packard  plotter,  pen  up 

is  the  default 

Cal ling  Sequence: 

Pascal:  inithp; 

Fortran:  call  inthp 

Programming  Considerations:  These  subroutines  move  the  pen 
to  the  lower  right  corner  of  the  plotter,  in  the  pen  up 
position.  The  current  pen  selection  is  not  affected. 
The  plotter  must  be  online  when  using  these  subroutines 

linehp  /  linhp 

Purpose:  Draws  a  line  from  the  current  pen  location  to  the 

specified  x,y  coordinates  on  the  plotter 

Calling  Sequence: 

Pascal:  linehp (x,y); 

x  :  integer;  -  x  coordinate,  range  0-16000 
y  :  integer;  -  y  coordinate,  range  0—11400 

Fortran:  call  linhp (x,y) 

integer  x  —  x  coordinate,  range  0—16000 
integer  y  —  y  coordinate,  range  0-11400 

Programming  Considerations:  The  plotter  must  be  online  to 
use  these  subroutines.  To  draw  a  line  the  pen  must  be 
in  the  "down"  position  prior  to  calling  these 
subroutines.  An  "out  of  range"  error  will  occur  if  a 
line  is  drawn  outside  the  x,y  coordinate  limits, 
causing  the  plotter  to  abort. 

movehp  /  mvehp 

Purpose:  Moves  the  current  Hewlett  Packard  plotter  pen 

location  to  the  specified  x,y  coordinates 

Calling  Sequence: 

Pascal :  movehp  < x , y ) ; 

x  :  integer;  -  x  coordinate,  range  0-16000 
y  :  integer;  -  y  coordinate,  range  0-11400 


Fortran:  call  mvehp(x,y) 


integer  x  -  x  coordinate,  range  0—16000 
integer  y  —  y  coord inage,  range  0-11400 

Programming  Considerations:  The  plotter  must  be  online  when 
using  these  subroutines.  The  pen  is  automatically 
placed  in  the  "up"  position  by  this  routine.  An  “out 
of  range"  error  will  occur  if  the  pen  is  moved  outside 
the  x,y  coordinate  limits,  causing  the  plotter  to 
abort. 

offhp  /  offhp 

Purpose:  Takes  the  Hewlett  Packard  plotter  offline. 

Calling  Sequence: 

Pascal:  offhp; 

Fortran:  call  offhp 

Programmi ng  Considerations:  To  gain  control  of  the  Visual 
100  that  is  connected  to  the  plotter,  the  plotter  must 
be  offline. 

onhp  /  onhp 

Purpose:  Puts  the  Hewlett  Packard  plotter  online. 

Calling  Sequence: 

Pascal:  onhp; 

Fortran:  call  onhp 

Programming  Considerations:  The  plotter  must  be  online  when 
commands  are  sent  to  the  plotter. 

penhp  /  penhp 

Purpose:  Place  the  Hewlett  Packard  plotter  pen  in  the  up  or 
down  position. 

Calling  Sequence: 

Pascal :  penhp (num) ; 

num  :  integer;  -  0  -  pen  up 

1  =  pen  down 


Fortran:  call  penhp (num) 

integer  num  -  O  =  pen  up 

1  =  pen  down 


Frogruning  Considerations:  The  plotter  must  be  online  when 
using  these  subroutines 

selectpenhp  /  spnhp 

Purpose:  Selects  the  specified  Hewlett  Packard  plotter  pen, 

or  returns  current  pen  to  its  bin  holder 

Calling  Sequence: 

Pascal:  selectpenhp (nun) ; 

num  :  integer;  -  0  =  return  pen  to  its  bin 

1  -  pen  1 

2  *  pen  2 

3  =  pen  3 

4  *  pen  4 

Fortran:  call  spnhp (nun) 

integer  nun  —  0  *=  return  pen  to  its  bin 

1  *  pen  1 

2  *  pen  2 

3  =  pen  3 

4  ■  pen  4 

Programming  Considerations:  The  plotter  aust  be  online  when 
using  these  subroutines. 


sizehp  /  sizhp 

Purpose:  Set  the  character  size  on  the  Hewlett  Packard 

plotter  in  cent ineters (range  -128.000  to  127.000) 

Calling  Sequence: 

Pascal:  sizehp (wi dth, height ) ; 

width  :  real;  -  width  of  character 

default  -  0.19 

height  :  real;  -  height  of  character 

default  -  0.27 


Fortran:  call  sizhp (width, height ) 

double  precision  width  -  width  of  character 

default  =  0.19 

double  precision  height  -  height  of  character 

default  =  0.27 

Programming  Considerations:  The  plotter  must  be  online 
using  these  subroutines. 

termhp  /  trmhp 
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Purpose:  Terminates  the  Hewlett  Packard  plotter,  pen  up 

is  the  default,  current  pen  is  returned  to  its 
bin  holder 

Calling  Sequence: 

Pascal:  termhp (nun) ; 

num  :  integer;  -  nun  =  0  to  return  pen  to  its 

bin  (variable  required) 

Fortran:  call  trmhp(O) 

Programming  Considerations:  The  plotter  must  be  online 
when  using  these  subroutines.  The  pen  is  moved  to 
the  lower  right  corner  of  the  plotter. 
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III.  visual  550  User  Subroutines 


alpha5SO  /  alp50 


Purpose:  Enter  the  Visual  550  into  alphanumerics  mode 
Calling  Sequence: 

Pascal:  alpha550; 


Fortran:  call  alp50 

Programming  Considerations:  primarily  used  to  set  device 
into  alpha  mode  for  writing  text 

char550  /  chr50 

Purpose:  Write  a  string  of  text  to  the  Visual  550 
Cal ling  Sequence: 

Pascal :  char 550 (nun, out ary) ; 

num  :  integer;  -  number  of  characters  to  print 


ary  =  packed  array  Cl..??3  of  char; 

??  —  maximum  number  in  array 
outary  :  ary;  -  array  of  characters  to  output 


Fortran  77:  call  chr 50 (num, outary) 

integer  num  -  number  of  characters  to  print 
character  outary (??)  -  array  of  characters 
to  output 

??  -  maximum  number  in  array 


Programming  Considerations:  must  be  in  alpha  mode  when  using 
these  subroutines.  Characters  will  be  lost  if  they 
are  drawn  outside  the  limits  of  the  screen. 

clr550  /  clr50 

Purpose:  Clears  the  Visual  550  screen,  and  places  it 
into  alpha  mode 

Calling  Sequence: 

Pascal:  clr550; 

Fortran:  call  clr50 


Programming  Considerations:  Any  text  or  graphics  on  screen 
will  be  erased.  The  Visual  550  will  now  be  in  the 
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alpha  aodc.  clr550,  init550,  and  ter a 5 50  do  the  same 
thing. 

cross550  /  crs50 

Purpose:  Reads  the  cross  hair  position  in  x,y  coordinates  on 
the  Visual  550,  plus  it  returns  the  character 
'from  the  keyboard  used  to  initiate  the  cross  hair 
read 

Calling  Sequence: 

Pascal:  cross550 (x , y, ient) $ 

x  :  integer;  -  x  coordinate,  range  0-1023 
y  :  integer;  -  y  coordinate,  range  0—778 
ient  :  integer;  -  keyboard  character  returned 

in  integer  -format 

Fob  t  ran:  call  crs50  (x  ,  y  ,  ient  > 

integer  x  -  x  coordinate,  range  0-1023 
integer  y  —  y  coordinate,  range  0—778 
integer  ient  —  keyboard  character  returned 
in  integer  format 

Programming  Considerations:  Must  be  in  graphics  mode  Mhen 

using  these  subroutines.  To  use,  the  cross  hairs  Mill 
appear  on  the  screen,  move  them  with  the  8  arrow  keys 
to  the  desired  position,  then  depress  any  keyboard 
character  to  initiate  the  read.  No  delay  need  be 
added,  the  system  will  automatically  wait  for  a 
keyboard  character  before  continuing. 

graph550  /  gphSO 

Purpose:  Enter  the  Visual  550  into  graphics  mode 
Calling  Sequence: 

Pascal :  graph550; 

Fortran:  call  gph50 

Programming  Considerations:  primarily  used  to  set  device 

into  graphics  mode  for  reading  the  cross  hairs,  drawing 
lines,  and  setting  the  character  size 

init550  /  int50 

Purpose:  Initializes  the  Visual  550  screen,  and  places 
it  into  alpha  mode 


Calling  Sequence: 


vvW 


Pascal:  init550; 


Fortran:  call  int50 

Programming  Considerations:  Any  text  or  graphics  on  screen 
Mill  be  erased.  The  Visual  550  will  now  be  in 
the  alpha  mode.  clr550,  init550,  term550  do  the  same 
thing. 

1 i ne550  /  1 i n50 

Purpose:  Draw  a  line  -from  the  current  cursor  position  on  the 
Visual  550  to  the  specified  xfy  coordinate 

Calling  Sequence: 

Pascal:  line550(xyy) ; 

x  :  integer;  -  x  coordinate,  range  0-1023 
y  :  integer;  -  y  coordinate,  range  0-778 

Fortran:  call  lin50(x,y) 

integer  x  —  x  coordinate,  range  0—1023 
integer  y  -  y  coordinate,  range  0—778 

Programming  Considerations:  Must  be  in  graphics  mode  when 
using  these  subroutines.  The  very  first  line550 
or  lin50  is  normally  preceded  by  move550  or  mve50 
to  fix  a  starting  point.  This  move  sets  up  the 
terminal  for  one  line,  or  a  series  of  connected  lines, 
to  be  drawn.  It  is  not  entirely  necessary  to  preceed 
the  very  first  line  with  a  move.  However,  when  in 
graphics  mode  and  not  preceding  the  very  first  line 
with  a  move,  then  the  very  first  line  may  or  may  not 
be  drawn  depending  on  the  state  of  the  terminal. 

Lines  will  be  clipped  or  lost  if  they  are  outside  the 
screen  limits. 

mode550  /  mde50 

Purpose:  Turns  the  pixels  on  or  off  for  the  Visual  550. 

With  the  pixels  off,  lines  can  be  selectively 
deleted. 

Calling  Sequence: 

Pascal :  mode550 (nun) ; 

nun  :  integer;  —  0  =  pixels  on  (default) 

1  =  pixels  off 

Fortran:  call  mde50(num) 


integer  num  -  0  =  pixels  on  (default) 


1  =  pixels  off 


Programming  Considerations:  Must  be  in  graphics  mode  when 
using  these  subroutines. 

move550  /  mve50 

Purpose:  Move  the  current  Visual  550  cursor  to  the 

specified  x,y  coordinates 

Calling  Sequence: 

Pascal:  move550 (x , y) ; 

x  :  integer;  -  x  coordinate,  range  0—1023 
y  :  integer;  -  y  coordinate,  range  0—778 

Fortran:  call  mve50(x,y) 

integer  x  -  x  coordinate,  range  0—1023 
integer  y  -  y  coordinate,  range  0—778 

Programming  Considerations:  Do  not  have  to  be  in  graphics 

mode  when  accessing  this  routine.  It  is  automatically 
placed  into  graphics  mode.  Normally  preceeds  the 
very  first  line550  or  linSO.  Moves  can  occur  outside 
the  screen  limits  not  aborting  the  program,  but 
affecting  characters  and  lines  drawn. 

size550  /  siz50 


Purpose:  Set  the  character  siz 
4  sizes  possible: 

1  =  80  characters,  34  lines 

2  =  40  characters,  17  lines 

3  =  26  characters,  11  lines 

4  =  20  characters,  8  lines 


for  the  Visual  550 


(default) 


Cal ling  Sequence : 

Pascal :  si ze550 (num) ; 


num  :  integer;  -  number  (1-4)  to  set  character 

size 


Fortran:  call  siz50(num) 

integer  num  -  number  (1-4)  to  set  character 
size 

Programming  Considerations:  This  routine  does  not  have  to 
be  called  unless  the  character  size  needs  to  be  set 
to  other  than  the  default  value.  When  it  is  called, 
the  Visual  550  must  be  in  graphics  mode. 


£ 


11.  term550  /  trm50 


Purpose:  Terminate  the  Visual  550,  and  plac 
alpha  mode 


es  it  into 


Calling  Sequence: 
Pascal :  term550; 


Fortran:  call  trm50 


Programming  Considerations:  Any  text  or  graphics  screen 
Mill  be  erased.  The  Visual  550  Mill  noM  be  in 
alpha  mode.  clr550,  init550,  and  term550  do  the  same 
thing. 
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IV.  Graphic  Terminal /Plotter  Usage 


1.  Tektronics  4014  Vector  Terminal 


******  Not  yet  available  for  use  on  the  Vax  ***** 


2.  Hewlett  Packard  7220A  4  Color  Plotter 


Setup  of  the  Visual  100  connected  to  the  plotter 

a.  Set  "blue  box"  to  "61"  -  for  9600  baud 

b.  Logon  to  the  Vax  -  ********************** 

*******  warning  ****** 
********************** 

Hake  sure  that  the  Hewlett  Packard  plotter  is 
turned  off  when  trying  to  logon  to  the  Visual 
100  terminal. 

c.  Set  the  Visual  100  terminal  to  2400  baud 

(1)  type  "stty  2400"  <cr>  to  start  2400  baud  setup 

(2)  Depress  the  "setup"  key 

(3)  Depress  the  "5"  key 

(4)  Transmit  speed  set  to  2400  baud  by  depressing 
the  "7"  key  until  the  "T. Speed"  on  the  lower 
right  screen  is  2400 

(5)  Receive  speed  set  to  2400  baud  by  depressing 
the  "8"  key  until  the  "R. Speed"  on  the  lower 
right  screen  is  2400 

(6)  Depress  the  "setup"  key  again 

(7)  Now  at  2400  baud 


Setup  of  the  Hewlett  Packard  Plotter 

a.  Set  the  Hewlett  Packard  plotter  to  "2400"  baud,  if 
necessary,  by  adjusting  the  knob  to  2400  in  the  back 
of  the  plotter. 

b.  Turn  the  Hewlett  Packard  plotter  on. 


3.  Visual  550  Raster  Terminal 

To  run  a  graphics  program  on  the  Visual  550: 

(1)  depress  the  "setup"  key 

(2)  depress  the  "F6"  key  until  the  F6  at  the  bottom  of 
the  screen  reads  "GRAPHICS" 
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<3)  depress  the  ''setupHkey 

(4)  the  terminal  is  ready  to  run  a  graphics  program 
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V*.  Samgle  Pascal  and  Fortran  77  Programs 


TK4014  in  Pascal 


testl4.p  file 

program  test 14 < input , output ) ; 
type 

ary  =  packed  array  Cl.. 803  of  char; 
var 

x,y  :  integer;  <*  x,y  coordinates  *) 
nun  :  integer;  <*  number  to  pass  to  subroutines  *) 
icnt  :  integer;  (*  keyboard  character  returned  *) 
outary  :  ary;  (*  character  string  *> 

#include  ’testl4.h’  (*  include  file  needed  to  define  *) 

(*  external  procedures  and  variables  *) 

begin 

<*  initialize  the  screen  *> 
init 14; 

(*  read  the  cross  hair  *) 
graph 14; 

crossl4(x,y, icnt) ; 

(*  write  out  a  sample  text  string  *> 
clr 14; 

outary  =  ’Sample  character  string’; 

nun  : =  23; 

alphal4; 

char  14 (nun, outary) ; 

(*  write  out  another,  smaller  text  string  ») 
clr 14; 
graphl4; 
num  :=  4; 
sizel4(num) $ 
alphal4; 
num  : =  23; 
char  1 4 (num, outary ) » 

<*  draw  a  line  *) 
clr 14; 
graph!4; 
x  :=  lOO; 
y  :=  200; 
movel4(x,y) ; 
x  :*  600; 
y  :=  700; 
linel4(x,y) ; 

<*  terminate  program  «) 
terml4; 
end. 


testl4.h  file 


procedure  alphal4;  external; 
procedure  charl4(var  num  :  integer; 

var  outary  :  ary);  external; 
procedure  clrl4;  external; 

procedure  crossl4(var  x,y,icnt  :  integer);  external 
procedure  graphl4;  external; 
procedure  initl4;  external; 

procedure  linel4(var  x,y  :  integer);  external; 
procedure  movel4(var  x,y  :  integer);  external; 
procedure  sizel4(var  num  :  integer);  external; 
procedure  terml4;  external; 


TK4014  in  Fortran  77 


testl4.-f  -file 

program  test 14 
integer  x,y,icnt 
integer  num 
character  outary*80 
c  initialize  screen 
call  intl4 

c  read  the  cross  hair  position 
call  gphl4 
call  crsl4<x,y, icnt) 
c  write  out  sample  text  string 
call  clrl4 
num  =  23 
call  alpl4 

outary  =  'Sample  character  string’ 
call  chr 14 (num, outary) 
c  write  out  another,  smaller  text  string 
call  clrl4 
call  gphl4 
num  =  4 

call  sizl4(num) 
call  alpl4 
num  =  23 

call  chr 14 (num, outary ) 
c  draw  a  line 

call  clr 14 
call  gphl4 
x  =  100 
y  =  200 

call  mvel4(x,y)  , 

x  =  600 
y  =  700 

call  linl4(x,y) 
c  terminate  program 
call  trml4 


HP722Ch  in  Pascal 


testhp.p  -file 

program  test (input, output ) $ 
type 

ary  =  packed  array  Cl.. 803  o-f  char; 
var 

x ,  y  :  integer;  (*  x,y  coordinates  *) 
icnt  :  integer;  <*  keyboard  character  *) 
d  :  integer;  <*  delay  *) 

nun  :  integer;  (*  number  to  pass  to  subroutines  *) 
out ary  :  ary;  (*  character  string  *) 

width, height  :  real  (*  character  size  in  centimeters  *) 
Vinclude  ’testhp.h’  <*  include  -file  needed  to  de-fine 

(*  external  procedures  and  variables 

begin 

(*  initialize  plotter  *) 
onhp; 
ini thp; 

(*  select  a  pen  *) 
num  :=  1; 
selectpenhp (num) ; 

<*  read  the  pen  position  *) 
d  :=  O; 

crosshp (x  ,y, icnt,d) ; 

(*  write  a  sample  text  string  *) 
x  : =  100; 

y  :=  2000; 

movehp (x, y) ; 

outary  :=  ’Sample  character  string’; 

num  :=  23; 

charhp (num, outary) ; 

(*  write  another,  larger  sample  text  string  ♦) 
x  : =  loo; 
y  :=  4000; 

movehp (x,y) ; 
width  : =  1.0; 
height  :=  1.0; 
sizehp (width, height) ; 
charhp (num, outary) ; 

(*  draw  a  line  *) 

x  :=  iooo; 
y  :=  iooo; 

movehp (x,y) ; 
num  : =  1 ; 
penhp (num) ; 
x  : *  9000; 

y  :*  9000; 

1 inehp (x , y) ; 
num  :*  0J 
penhp (num) ; 

(*  terminate  platter  *) 


terahp (nun) ; 
of f hp; 
end. 


testhp. h 

procedure 

procedure 

procedure 

procedure 

procedure 

procedure 

procedure 

procedure 

procedure 

procedure 

procedure 


charhp(var  num  :  i ntegr ; 

var  outary  :  ary);  external; 
crosshp (var  x,y,icnt,d  :  integer);  external; 
inithp;  external; 

linehp(var  x,y  :  integer);  external; 
novehp (var  x,y  :  integer);  external; 
offhp;  external; 
onhp;  external; 

penhp (var  num  :  integer);  external; 
selectpenhp (var  num  :  integer);  external; 
sizehp(var  width, height  :  real);  external; 
termhp(var  num  :  integer);  external; 


HP7220A  in  Fortran  77 


program  testhp 
i nteger  x , y 
integer  icnt,d 
i nteger  num 
character  out ary *80 
double  precision  width, height 
initialize  plotter 
cal 1  onhp 
call  inthp 
select  a  pen 
num  =  1 

call  spnhp(num) 
read  pen  position 
d  —  0 

call  crshp(x,y, icnt,d) 
write  a  sample  text  string 
x  *  lOO 
y  -  2000 
call  mvehp(x,y) 

outary  =  ’Sample  character  string’ 
num  =  23 

call  chrhp (num, outary) 
write  a  larger  sample  text  string 
x  =  100 
y  =  4000 
call  mvehp(x,y) 
width  *  1.0 
height  =  1.0 
call  sizhp (width, height) 
call  chrhp (num, outary) 
draw  a  line 
x  *  1000 
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35?  wc*? 


** 


y  = 

lOOO 

call 

mvehp  <x , y) 

num 

=  1 

cal  1 

penhp (num) 

x  * 

6000 

y  * 

6000 

call 

linhp (x,y) 

num 

=  0 

call 

penhp (num) 

c  terminate  plotter 

call 

trmhp(O) 

call 

of  f  hp 

Visual  550  in  Pascal 


testSSO.p  -file 


program  test 550 ( i nput , output  > ; 
type 

ary  =  packed  array  Cl.. 803  o-f  char; 
var 

x , y  :  integer;  (*  x,y  coordinates  *) 
nun  :  integer;  (*  number  to  pass  to  subroutines  *) 
icnt  :  integer;  (*  keyboard  character  returned  *) 
outary  :  ary;  (*  character  string  *) 
ttinclude  ' test550.h*  (*  include  -file  needed  to  define 

(*  external  procedures  and  variable 

begin 

(*  initialize  the  screen  *> 
ini t550; 

(#  read  the  cross  hair  *) 
graph 550* 

cross550(x , y, icnt) ; 

(*  write  out  a  sample  text  string  *) 
clr550; 

outary  =  'Sample  character  string'; 

num  !*  23; 

alpha5SO; 

char550 (num, outary) ; 

(*  write  out  another,  larger  text  string  *) 
clr550; 
graph550; 
num  :=  2; 
size550(num) ; 
alpha550; 
num  : =  23; 

char550 (num, outary) ; 

(*  draw  a  line  *) 
clr550; 
graph550; 
x  :*  loo; 


k 


move5SO(x,y) $ 
x  :  =  6001 
y  : =  700* 
line550(x,y) * 

(*  erase  the  same  line  *) 
nun  : *  1  * 
ntode550  (nun)  * 
x  : =  lOO* 
y  :*=  200* 
move550 (x , y ) $ 
x  : =  600$ 
y  :*  700* 
line550(x,y)  * 

<*  terminate  program  *) 
ter«S50$ 
end. 


testSSO.h  -file 

procedure  alphaS50*  external* 
procedure  charS50(var  nun  :  integer* 

var  outary  :  ary) *  external  $ 
procedure  clrSSO*  external* 

procedure  cross550(var  x,y,icnt  :  integer);  external 
procedure  graphSSO*  external  * 
procedure  init550*  external  $ 

procedure  line550<var  x,y  :  integer)*  external; 
procedure  mode5SO (var  nun  :  integer);  external* 
procedure  move550(var  x,y  :  integer)*  external; 
procedure  size550(var  nun  :  integer);  external; 
procedure  term550;  external ; 


Visual  550  in  Fortran 


testSO.f  file 

program  testSO 
integer  x,y,icnt 
i nteger  nun 
character  outary*80 
c  initialize  screen 
call  int50 

c  read  the  cross  hair  position 
call  gph50* 
call  crsSO(x, y, icnt) 
c  write  out  sample  text  string 
call  clr50 
num  3  23 
call  alp50 

outary  *  'Sample  character  string' 
call  chrSO ( num , outary) 
c  write  out  another,  larger  text  string 


call  clr50 
cal 1  gph50 
nun  =  2 

call  siz50(num) 
call  alp50 
nun  =  23 

call  chr50<num, outary ) 
draw  a  line 
call  clr50 
cal 1  gph50 
x  =  100 
y  =  200 

call  mve50(x,y) 
x  *  600 
y  =  700 

call  lin50(x,y) 
erase  the  same  line 
nun  =  1 

call  mde50(num) 
x  =  lOO 
y  =  200 

call  mve50(x,y) 
x  =  600 
y  *  700 

call  lin50<x,y) 
terminate  program 
cal 1  trm50 


VAX  11/Z80  Execution 


1.  Compile  end  Run  Pascal  Programs 

Compile:  >pc  -file.p  /ul/gcs-83d/j taylor/1  ib2 
*****  warning  ***** 

a  message  "warning  :  table  o-f  contents  for  archive  is 
out  of  date,  rerun  ranlib(l)"  will  appear,  ignore  it 

lib2  —  library  containing  pascal  graphics 
subroutines 

Run:  >a. out 


2.  Compile  and  Run  Fortran  Programs 

Compile:  >f77  file.f  /ul/gcs-83d/j taylor/1 ib2 
*****  warning  ***** 

a  message  "warning:  table  of  contents  for  archive  i 
out  of  date,  rerun  ranlib(l)"  will  appear,  ignore  i 

lib2  -  library  containing  fortran  graphics 
subroutines 


Run:  >a.out 
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VITA 

John  W.  Taylor  was  born  on  5  April  1953  in  Bethesda, 
Maryland.  He  graduated  from  high  school  in  Fall  River, 
California  in  1971  and  attended  San  Jose  State  University 
from  which  he  received  the  Degree  of  Bachelor  of  Science  in 
Geology  in  January  1976.  Upon  graduation,  he  received  a 
commission  in  the  USAF  through  the  ROTC  program.  He  then 
served  as  a  computer  programmer /analyst  in  San  Antonio, 
Texas  until  entering  the  School  of  Engineering,  Air  Force 
Institute  of  Technology,  in  June  1982. 
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